R/tmp/F4b - ocupIBGEToIsco88.R

ocupIBGEToIsco88 <- function(ocup,  # nome da variavel que contem a classificacao das ocupacoes
                          tipo,     # character: "censo", "pnad" ou "pnadc"
                          ano= NULL){ # numeric: nao eh preciso especificar ano para a pnadc {
        
        banco <- data.table(var_ocup = double(length(ocup)),
                            isco = double(length(ocup)))
        
        banco[, var_ocup := ocup]
        
        
        if((tipo == "censo" & ano == 2010)| (tipo == "pnadc")) {
                banco[var_ocup == 0, isco := NA]
                banco[var_ocup == 110, isco := 110]
                banco[var_ocup == 210, isco := 110]
                banco[var_ocup == 299, isco := 110]
                banco[var_ocup == 411, isco := 110]
                banco[var_ocup == 412, isco := 110]
                banco[var_ocup == 511, isco := 110]
                banco[var_ocup == 512, isco := 110]
                banco[var_ocup == 599, isco := 110]
                banco[var_ocup == 999, isco := 110]
                banco[var_ocup == 1111, isco := 1110]
                banco[var_ocup == 1112, isco := 1120]
                banco[var_ocup == 1113, isco := 1110]
                banco[var_ocup == 1114, isco := 1143]
                banco[var_ocup == 1120, isco := 1210]
                banco[var_ocup == 1211, isco := 1231]
                banco[var_ocup == 1212, isco := 1232]
                banco[var_ocup == 1213, isco := 1229]
                banco[var_ocup == 1219, isco := 1227]
                banco[var_ocup == 1221, isco := 1233]
                banco[var_ocup == 1222, isco := 1234]
                banco[var_ocup == 1223, isco := 1237]
                banco[var_ocup == 1311, isco := 1221]
                banco[var_ocup == 1312, isco := 1221]
                banco[var_ocup == 1321, isco := 1222]
                banco[var_ocup == 1322, isco := 1222]
                banco[var_ocup == 1323, isco := 1223]
                banco[var_ocup == 1324, isco := 1226]
                banco[var_ocup == 1330, isco := 1226]
                banco[var_ocup == 1341, isco := 1229]
                banco[var_ocup == 1342, isco := 1229]
                banco[var_ocup == 1343, isco := 1229]
                banco[var_ocup == 1344, isco := 1229]
                banco[var_ocup == 1345, isco := 1229]
                banco[var_ocup == 1346, isco := 1227]
                banco[var_ocup == 1349, isco := 1229]
                banco[var_ocup == 1411, isco := 1225]
                banco[var_ocup == 1412, isco := 1225]
                banco[var_ocup == 1420, isco := 1224]
                banco[var_ocup == 1431, isco := 1229]
                banco[var_ocup == 1439, isco := 1229]
                banco[var_ocup == 2111, isco := 2111]
                banco[var_ocup == 2112, isco := 2112]
                banco[var_ocup == 2113, isco := 2113]
                banco[var_ocup == 2114, isco := 2114]
                banco[var_ocup == 2120, isco := 2121]
                banco[var_ocup == 2131, isco := 2211]
                banco[var_ocup == 2132, isco := 2213]
                banco[var_ocup == 2133, isco := 2211]
                banco[var_ocup == 2141, isco := 2149]
                banco[var_ocup == 2142, isco := 2142]
                banco[var_ocup == 2143, isco := 2149]
                banco[var_ocup == 2144, isco := 2145]
                banco[var_ocup == 2145, isco := 2146]
                banco[var_ocup == 2146, isco := 2147]
                banco[var_ocup == 2149, isco := 2149]
                banco[var_ocup == 2151, isco := 2143]
                banco[var_ocup == 2152, isco := 2144]
                banco[var_ocup == 2153, isco := 2144]
                banco[var_ocup == 2161, isco := 2141]
                banco[var_ocup == 2162, isco := 2141]
                banco[var_ocup == 2163, isco := 3471]
                banco[var_ocup == 2164, isco := 2141]
                banco[var_ocup == 2165, isco := 2148]
                banco[var_ocup == 2166, isco := 3471]
                banco[var_ocup == 2211, isco := 2221]
                banco[var_ocup == 2212, isco := 2221]
                banco[var_ocup == 2221, isco := 2230]
                banco[var_ocup == 2222, isco := 2230]
                banco[var_ocup == 2230, isco := 3241]
                banco[var_ocup == 2240, isco := 3221]
                banco[var_ocup == 2250, isco := 2223]
                banco[var_ocup == 2261, isco := 2222]
                banco[var_ocup == 2262, isco := 2224]
                banco[var_ocup == 2263, isco := 2229]
                banco[var_ocup == 2264, isco := 3226]
                banco[var_ocup == 2265, isco := 3223]
                banco[var_ocup == 2266, isco := 2229]
                banco[var_ocup == 2267, isco := 3224]
                banco[var_ocup == 2269, isco := 2229]
                banco[var_ocup == 2310, isco := 2310]
                banco[var_ocup == 2320, isco := 2359]
                banco[var_ocup == 2330, isco := 2320]
                banco[var_ocup == 2341, isco := 2331]
                banco[var_ocup == 2342, isco := 2332]
                banco[var_ocup == 2351, isco := 2351]
                banco[var_ocup == 2352, isco := 2359]
                banco[var_ocup == 2353, isco := 2359]
                banco[var_ocup == 2354, isco := 2359]
                banco[var_ocup == 2355, isco := 2359]
                banco[var_ocup == 2356, isco := 2359]
                banco[var_ocup == 2359, isco := 2359]
                banco[var_ocup == 2411, isco := 2411]
                banco[var_ocup == 2412, isco := 2411]
                banco[var_ocup == 2413, isco := 2419]
                banco[var_ocup == 2421, isco := 2419]
                banco[var_ocup == 2422, isco := 2419]
                banco[var_ocup == 2423, isco := 2412]
                banco[var_ocup == 2424, isco := 2412]
                banco[var_ocup == 2431, isco := 2419]
                banco[var_ocup == 2432, isco := 2419]
                banco[var_ocup == 2433, isco := 3415]
                banco[var_ocup == 2434, isco := 3415]
                banco[var_ocup == 2511, isco := 2131]
                banco[var_ocup == 2512, isco := 2131]
                banco[var_ocup == 2513, isco := 2131]
                banco[var_ocup == 2514, isco := 2131]
                banco[var_ocup == 2519, isco := 2131]
                banco[var_ocup == 2521, isco := 2131]
                banco[var_ocup == 2522, isco := 2131]
                banco[var_ocup == 2523, isco := 2131]
                banco[var_ocup == 2529, isco := 2131]
                banco[var_ocup == 2611, isco := 2421]
                banco[var_ocup == 2612, isco := 2422]
                banco[var_ocup == 2619, isco := 2429]
                banco[var_ocup == 2621, isco := 2431]
                banco[var_ocup == 2622, isco := 2432]
                banco[var_ocup == 2631, isco := 2441]
                banco[var_ocup == 2632, isco := 2442]
                banco[var_ocup == 2633, isco := 2443]
                banco[var_ocup == 2634, isco := 2445]
                banco[var_ocup == 2635, isco := 2446]
                banco[var_ocup == 2636, isco := 2460]
                banco[var_ocup == 2641, isco := 2451]
                banco[var_ocup == 2642, isco := 2451]
                banco[var_ocup == 2643, isco := 2444]
                banco[var_ocup == 2651, isco := 2452]
                banco[var_ocup == 2652, isco := 2453]
                banco[var_ocup == 2653, isco := 2454]
                banco[var_ocup == 2654, isco := 2455]
                banco[var_ocup == 2655, isco := 2455]
                banco[var_ocup == 2656, isco := 3472]
                banco[var_ocup == 2659, isco := 2455]
                banco[var_ocup == 3111, isco := 3111]
                banco[var_ocup == 3112, isco := 3112]
                banco[var_ocup == 3113, isco := 3113]
                banco[var_ocup == 3114, isco := 3114]
                banco[var_ocup == 3115, isco := 3115]
                banco[var_ocup == 3116, isco := 3116]
                banco[var_ocup == 3117, isco := 3117]
                banco[var_ocup == 3118, isco := 3118]
                banco[var_ocup == 3119, isco := 3119]
                banco[var_ocup == 3121, isco := 7111]
                banco[var_ocup == 3122, isco := 8171]
                banco[var_ocup == 3123, isco := 7129]
                banco[var_ocup == 3131, isco := 8161]
                banco[var_ocup == 3132, isco := 8163]
                banco[var_ocup == 3133, isco := 8152]
                banco[var_ocup == 3134, isco := 8155]
                banco[var_ocup == 3135, isco := 8121]
                banco[var_ocup == 3139, isco := 3111]
                banco[var_ocup == 3141, isco := 3211]
                banco[var_ocup == 3142, isco := 3212]
                banco[var_ocup == 3143, isco := 3212]
                banco[var_ocup == 3151, isco := 3141]
                banco[var_ocup == 3152, isco := 3142]
                banco[var_ocup == 3153, isco := 3143]
                banco[var_ocup == 3154, isco := 3144]
                banco[var_ocup == 3155, isco := 3145]
                banco[var_ocup == 3211, isco := 3133]
                banco[var_ocup == 3212, isco := 3211]
                banco[var_ocup == 3213, isco := 3228]
                banco[var_ocup == 3214, isco := 3225]
                banco[var_ocup == 3221, isco := 3231]
                banco[var_ocup == 3222, isco := 3232]
                banco[var_ocup == 3230, isco := 3241]
                banco[var_ocup == 3240, isco := 3227]
                banco[var_ocup == 3251, isco := 3225]
                banco[var_ocup == 3252, isco := 3222]
                banco[var_ocup == 3253, isco := 5139]
                banco[var_ocup == 3254, isco := 3224]
                banco[var_ocup == 3255, isco := 3226]
                banco[var_ocup == 3256, isco := 3221]
                banco[var_ocup == 3257, isco := 3152]
                banco[var_ocup == 3258, isco := 5132]
                banco[var_ocup == 3259, isco := 3229]
                banco[var_ocup == 3311, isco := 3411]
                banco[var_ocup == 3312, isco := 3411]
                banco[var_ocup == 3313, isco := 3433]
                banco[var_ocup == 3314, isco := 3434]
                banco[var_ocup == 3315, isco := 3417]
                banco[var_ocup == 3321, isco := 3412]
                banco[var_ocup == 3322, isco := 3415]
                banco[var_ocup == 3323, isco := 3416]
                banco[var_ocup == 3324, isco := 3421]
                banco[var_ocup == 3331, isco := 3422]
                banco[var_ocup == 3332, isco := 3439]
                banco[var_ocup == 3333, isco := 3423]
                banco[var_ocup == 3334, isco := 3413]
                banco[var_ocup == 3339, isco := 3415]
                banco[var_ocup == 3341, isco := 3431]
                banco[var_ocup == 3342, isco := 3431]
                banco[var_ocup == 3343, isco := 3431]
                banco[var_ocup == 3344, isco := 3431]
                banco[var_ocup == 3351, isco := 3422]
                banco[var_ocup == 3352, isco := 3442]
                banco[var_ocup == 3353, isco := 3443]
                banco[var_ocup == 3354, isco := 3444]
                banco[var_ocup == 3355, isco := 3450]
                banco[var_ocup == 3359, isco := 3444]
                banco[var_ocup == 3411, isco := 3432]
                banco[var_ocup == 3412, isco := 3460]
                banco[var_ocup == 3413, isco := 3242]
                banco[var_ocup == 3421, isco := 3475]
                banco[var_ocup == 3422, isco := 3475]
                banco[var_ocup == 3423, isco := 2359]
                banco[var_ocup == 3431, isco := 3131]
                banco[var_ocup == 3432, isco := 3471]
                banco[var_ocup == 3433, isco := 3439]
                banco[var_ocup == 3434, isco := 5122]
                banco[var_ocup == 3435, isco := 3439]
                banco[var_ocup == 3511, isco := 3121]
                banco[var_ocup == 3512, isco := 3121]
                banco[var_ocup == 3513, isco := 3121]
                banco[var_ocup == 3514, isco := 3121]
                banco[var_ocup == 3521, isco := 3131]
                banco[var_ocup == 3522, isco := 3114]
                banco[var_ocup == 4110, isco := 4190]
                banco[var_ocup == 4120, isco := 4115]
                banco[var_ocup == 4131, isco := 4111]
                banco[var_ocup == 4132, isco := 4113]
                banco[var_ocup == 4211, isco := 4121]
                banco[var_ocup == 4212, isco := 4212]
                banco[var_ocup == 4213, isco := 4214]
                banco[var_ocup == 4214, isco := 4215]
                banco[var_ocup == 4221, isco := 3414]
                banco[var_ocup == 4222, isco := 4223]
                banco[var_ocup == 4223, isco := 4223]
                banco[var_ocup == 4224, isco := 4222]
                banco[var_ocup == 4225, isco := 4222]
                banco[var_ocup == 4226, isco := 4222]
                banco[var_ocup == 4227, isco := 4122]
                banco[var_ocup == 4229, isco := 4222]
                banco[var_ocup == 4311, isco := 4121]
                banco[var_ocup == 4312, isco := 4122]
                banco[var_ocup == 4313, isco := 4121]
                banco[var_ocup == 4321, isco := 4131]
                banco[var_ocup == 4322, isco := 4132]
                banco[var_ocup == 4323, isco := 4133]
                banco[var_ocup == 4411, isco := 4141]
                banco[var_ocup == 4412, isco := 4142]
                banco[var_ocup == 4413, isco := 4143]
                banco[var_ocup == 4414, isco := 4144]
                banco[var_ocup == 4415, isco := 4141]
                banco[var_ocup == 4416, isco := 4190]
                banco[var_ocup == 4419, isco := 4190]
                banco[var_ocup == 5111, isco := 5111]
                banco[var_ocup == 5112, isco := 5112]
                banco[var_ocup == 5113, isco := 5113]
                banco[var_ocup == 5120, isco := 5122]
                banco[var_ocup == 5131, isco := 5123]
                banco[var_ocup == 5132, isco := 5123]
                banco[var_ocup == 5141, isco := 5141]
                banco[var_ocup == 5142, isco := 5141]
                banco[var_ocup == 5151, isco := 5121]
                banco[var_ocup == 5152, isco := 5121]
                banco[var_ocup == 5153, isco := 9152]
                banco[var_ocup == 5161, isco := 5151]
                banco[var_ocup == 5162, isco := 5142]
                banco[var_ocup == 5163, isco := 5143]
                banco[var_ocup == 5164, isco := 5139]
                banco[var_ocup == 5165, isco := 2359]
                banco[var_ocup == 5168, isco := 10]
                banco[var_ocup == 5169, isco := 5149]
                banco[var_ocup == 5211, isco := 5230]
                banco[var_ocup == 5212, isco := 9111]
                banco[var_ocup == 5221, isco := 5220]
                banco[var_ocup == 5222, isco := 5220]
                banco[var_ocup == 5223, isco := 5220]
                banco[var_ocup == 5230, isco := 4211]
                banco[var_ocup == 5241, isco := 5210]
                banco[var_ocup == 5242, isco := 5220]
                banco[var_ocup == 5243, isco := 9113]
                banco[var_ocup == 5244, isco := 9113]
                banco[var_ocup == 5245, isco := 5220]
                banco[var_ocup == 5246, isco := 5220]
                banco[var_ocup == 5249, isco := 5220]
                banco[var_ocup == 5311, isco := 5131]
                banco[var_ocup == 5312, isco := 5131]
                banco[var_ocup == 5321, isco := 5132]
                banco[var_ocup == 5322, isco := 5133]
                banco[var_ocup == 5329, isco := 5132]
                banco[var_ocup == 5411, isco := 110]
                banco[var_ocup == 5412, isco := 5162]
                banco[var_ocup == 5413, isco := 5163]
                banco[var_ocup == 5414, isco := 5169]
                banco[var_ocup == 5419, isco := 5169]
                banco[var_ocup == 6111, isco := 6111]
                banco[var_ocup == 6112, isco := 6113]
                banco[var_ocup == 6114, isco := 6111]
                banco[var_ocup == 6121, isco := 6121]
                banco[var_ocup == 6122, isco := 6122]
                banco[var_ocup == 6123, isco := 6123]
                banco[var_ocup == 6129, isco := 6129]
                banco[var_ocup == 6130, isco := 6141]
                banco[var_ocup == 6210, isco := 6141]
                banco[var_ocup == 6221, isco := 6151]
                banco[var_ocup == 6224, isco := 6154]
                banco[var_ocup == 6225, isco := 6152]
                banco[var_ocup == 7111, isco := 7122]
                banco[var_ocup == 7112, isco := 7122]
                banco[var_ocup == 7113, isco := 7113]
                banco[var_ocup == 7114, isco := 7123]
                banco[var_ocup == 7115, isco := 7124]
                banco[var_ocup == 7119, isco := 7129]
                banco[var_ocup == 7121, isco := 7131]
                banco[var_ocup == 7122, isco := 7132]
                banco[var_ocup == 7123, isco := 7133]
                banco[var_ocup == 7124, isco := 7134]
                banco[var_ocup == 7125, isco := 7135]
                banco[var_ocup == 7126, isco := 7136]
                banco[var_ocup == 7127, isco := 7233]
                banco[var_ocup == 7131, isco := 7141]
                banco[var_ocup == 7132, isco := 7142]
                banco[var_ocup == 7133, isco := 7143]
                banco[var_ocup == 7211, isco := 7211]
                banco[var_ocup == 7212, isco := 7212]
                banco[var_ocup == 7213, isco := 7213]
                banco[var_ocup == 7214, isco := 7214]
                banco[var_ocup == 7215, isco := 7215]
                banco[var_ocup == 7221, isco := 7221]
                banco[var_ocup == 7222, isco := 7222]
                banco[var_ocup == 7223, isco := 7223]
                banco[var_ocup == 7224, isco := 7224]
                banco[var_ocup == 7231, isco := 7231]
                banco[var_ocup == 7232, isco := 7232]
                banco[var_ocup == 7233, isco := 7233]
                banco[var_ocup == 7234, isco := 7231]
                banco[var_ocup == 7311, isco := 7311]
                banco[var_ocup == 7312, isco := 7312]
                banco[var_ocup == 7313, isco := 7313]
                banco[var_ocup == 7314, isco := 7321]
                banco[var_ocup == 7315, isco := 7322]
                banco[var_ocup == 7316, isco := 7324]
                banco[var_ocup == 7317, isco := 7331]
                banco[var_ocup == 7318, isco := 7332]
                banco[var_ocup == 7319, isco := 7331]
                banco[var_ocup == 7321, isco := 7341]
                banco[var_ocup == 7322, isco := 8251]
                banco[var_ocup == 7323, isco := 7345]
                banco[var_ocup == 7411, isco := 7137]
                banco[var_ocup == 7412, isco := 7241]
                banco[var_ocup == 7413, isco := 7245]
                banco[var_ocup == 7421, isco := 7242]
                banco[var_ocup == 7422, isco := 7244]
                banco[var_ocup == 7511, isco := 7411]
                banco[var_ocup == 7512, isco := 7412]
                banco[var_ocup == 7513, isco := 7413]
                banco[var_ocup == 7514, isco := 7414]
                banco[var_ocup == 7515, isco := 7415]
                banco[var_ocup == 7516, isco := 7416]
                banco[var_ocup == 7521, isco := 7421]
                banco[var_ocup == 7522, isco := 7422]
                banco[var_ocup == 7523, isco := 7423]
                banco[var_ocup == 7531, isco := 7433]
                banco[var_ocup == 7532, isco := 7435]
                banco[var_ocup == 7533, isco := 7436]
                banco[var_ocup == 7534, isco := 7437]
                banco[var_ocup == 7535, isco := 7441]
                banco[var_ocup == 7536, isco := 7442]
                banco[var_ocup == 7541, isco := 7216]
                banco[var_ocup == 7542, isco := 7112]
                banco[var_ocup == 7543, isco := 3152]
                banco[var_ocup == 7544, isco := 7143]
                banco[var_ocup == 7549, isco := 7331]
                banco[var_ocup == 8111, isco := 7111]
                banco[var_ocup == 8112, isco := 8112]
                banco[var_ocup == 8113, isco := 8113]
                banco[var_ocup == 8114, isco := 8212]
                banco[var_ocup == 8121, isco := 8121]
                banco[var_ocup == 8122, isco := 8223]
                banco[var_ocup == 8131, isco := 8151]
                banco[var_ocup == 8132, isco := 7344]
                banco[var_ocup == 8141, isco := 8231]
                banco[var_ocup == 8142, isco := 8232]
                banco[var_ocup == 8143, isco := 8253]
                banco[var_ocup == 8151, isco := 8261]
                banco[var_ocup == 8152, isco := 7432]
                banco[var_ocup == 8153, isco := 8263]
                banco[var_ocup == 8154, isco := 8264]
                banco[var_ocup == 8155, isco := 8265]
                banco[var_ocup == 8156, isco := 8266]
                banco[var_ocup == 8157, isco := 8264]
                banco[var_ocup == 8159, isco := 8269]
                banco[var_ocup == 8160, isco := 8271]
                banco[var_ocup == 8171, isco := 8142]
                banco[var_ocup == 8172, isco := 8141]
                banco[var_ocup == 8181, isco := 8131]
                banco[var_ocup == 8182, isco := 8162]
                banco[var_ocup == 8183, isco := 9322]
                banco[var_ocup == 8189, isco := 8290]
                banco[var_ocup == 8211, isco := 8281]
                banco[var_ocup == 8212, isco := 8282]
                banco[var_ocup == 8219, isco := 8290]
                banco[var_ocup == 8311, isco := 8311]
                banco[var_ocup == 8312, isco := 8312]
                banco[var_ocup == 8321, isco := 8321]
                banco[var_ocup == 8322, isco := 8322]
                banco[var_ocup == 8331, isco := 5112]
                banco[var_ocup == 8332, isco := 8324]
                banco[var_ocup == 8341, isco := 8331]
                banco[var_ocup == 8342, isco := 8332]
                banco[var_ocup == 8343, isco := 8333]
                banco[var_ocup == 8344, isco := 8334]
                banco[var_ocup == 8350, isco := 8340]
                banco[var_ocup == 9111, isco := 9131]
                banco[var_ocup == 9112, isco := 9132]
                banco[var_ocup == 9121, isco := 9133]
                banco[var_ocup == 9122, isco := 9142]
                banco[var_ocup == 9123, isco := 9142]
                banco[var_ocup == 9129, isco := 9132]
                banco[var_ocup == 9211, isco := 9211]
                banco[var_ocup == 9212, isco := 9211]
                banco[var_ocup == 9213, isco := 9211]
                banco[var_ocup == 9214, isco := 6113]
                banco[var_ocup == 9215, isco := 6141]
                banco[var_ocup == 9216, isco := 6154]
                banco[var_ocup == 9311, isco := 9311]
                banco[var_ocup == 9312, isco := 7122]
                banco[var_ocup == 9313, isco := 7122]
                banco[var_ocup == 9321, isco := 9322]
                banco[var_ocup == 9329, isco := 9321]
                banco[var_ocup == 9331, isco := 9331]
                banco[var_ocup == 9332, isco := 9332]
                banco[var_ocup == 9333, isco := 9333]
                banco[var_ocup == 9334, isco := 9333]
                banco[var_ocup == 9411, isco := 5122]
                banco[var_ocup == 9412, isco := 5122]
                banco[var_ocup == 9510, isco := 9120]
                banco[var_ocup == 9520, isco := 9112]
                banco[var_ocup == 9611, isco := 9161]
                banco[var_ocup == 9612, isco := 9161]
                banco[var_ocup == 9613, isco := 9162]
                banco[var_ocup == 9621, isco := 9151]
                banco[var_ocup == 9622, isco := 9162]
                banco[var_ocup == 9623, isco := 9153]
                banco[var_ocup == 9624, isco := 9162]
                banco[var_ocup == 9629, isco := 9162]
                banco[var_ocup == 9999, isco := NA]
                banco[var_ocup == 9998, isco := NA]
                banco[var_ocup == 9988, isco := NA]
        }
        
        
        if((tipo == "censo" & ano == 2000) | (tipo == "pnad" & ano >= 2002 & ano <= 2014)){
                banco[var_ocup == 100, isco := 110]
                banco[var_ocup == 200, isco := 110]
                banco[var_ocup == 300, isco := 110]
                banco[var_ocup == 401, isco := 110]
                banco[var_ocup == 402, isco := 110]
                banco[var_ocup == 403, isco := 110]
                banco[var_ocup == 411, isco := 110]
                banco[var_ocup == 412, isco := 110]
                banco[var_ocup == 413, isco := 110]
                banco[var_ocup == 501, isco := 110]
                banco[var_ocup == 502, isco := 110]
                banco[var_ocup == 503, isco := 110]
                banco[var_ocup == 511, isco := 110]
                banco[var_ocup == 512, isco := 110]
                banco[var_ocup == 513, isco := 110]
                banco[var_ocup == 1111, isco := 1110]
                banco[var_ocup == 1112, isco := 1120]
                banco[var_ocup == 1113, isco := 1110]
                banco[var_ocup == 1122, isco := 1120]
                banco[var_ocup == 1123, isco := 1120]
                banco[var_ocup == 1130, isco := 1110]
                banco[var_ocup == 1140, isco := 1143]
                banco[var_ocup == 1210, isco := 1210]
                banco[var_ocup == 1219, isco := 1210]
                banco[var_ocup == 1220, isco := 1229]
                banco[var_ocup == 1230, isco := 1229]
                banco[var_ocup == 1310, isco := 1229]
                banco[var_ocup == 1320, isco := 1229]
                banco[var_ocup == 2011, isco := 2211]
                banco[var_ocup == 2012, isco := 2112]
                banco[var_ocup == 2021, isco := 2143]
                banco[var_ocup == 2111, isco := 2121]
                banco[var_ocup == 2112, isco := 2122]
                banco[var_ocup == 2121, isco := 2131]
                banco[var_ocup == 2122, isco := 2131]
                banco[var_ocup == 2123, isco := 2131]
                banco[var_ocup == 2124, isco := 2131]
                banco[var_ocup == 2125, isco := 2131]
                banco[var_ocup == 2131, isco := 2111]
                banco[var_ocup == 2132, isco := 2113]
                banco[var_ocup == 2133, isco := 2111]
                banco[var_ocup == 2134, isco := 2114]
                banco[var_ocup == 2140, isco := 2147]
                banco[var_ocup == 2141, isco := 2141]
                banco[var_ocup == 2142, isco := 2142]
                banco[var_ocup == 2143, isco := 2143]
                banco[var_ocup == 2144, isco := 2145]
                banco[var_ocup == 2145, isco := 2146]
                banco[var_ocup == 2146, isco := 2147]
                banco[var_ocup == 2147, isco := 2147]
                banco[var_ocup == 2148, isco := 2148]
                banco[var_ocup == 2149, isco := 2149]
                banco[var_ocup == 2151, isco := 3142]
                banco[var_ocup == 2152, isco := 3141]
                banco[var_ocup == 2153, isco := 3143]
                banco[var_ocup == 2211, isco := 2211]
                banco[var_ocup == 2221, isco := 2213]
                banco[var_ocup == 2231, isco := 2221]
                banco[var_ocup == 2232, isco := 2222]
                banco[var_ocup == 2233, isco := 2223]
                banco[var_ocup == 2234, isco := 2224]
                banco[var_ocup == 2235, isco := 2230]
                banco[var_ocup == 2236, isco := 3226]
                banco[var_ocup == 2237, isco := 2229]
                banco[var_ocup == 2311, isco := 2332]
                banco[var_ocup == 2312, isco := 2331]
                banco[var_ocup == 2313, isco := 2331]
                banco[var_ocup == 2321, isco := 2320]
                banco[var_ocup == 2330, isco := 2359]
                banco[var_ocup == 2340, isco := 2310]
                banco[var_ocup == 2391, isco := 2320]
                banco[var_ocup == 2392, isco := 2359]
                banco[var_ocup == 2394, isco := 2351]
                banco[var_ocup == 2410, isco := 2421]
                banco[var_ocup == 2412, isco := 2429]
                banco[var_ocup == 2419, isco := 2429]
                banco[var_ocup == 2421, isco := 2422]
                banco[var_ocup == 2422, isco := 2429]
                banco[var_ocup == 2423, isco := 3450]
                banco[var_ocup == 2511, isco := 2442]
                banco[var_ocup == 2512, isco := 2441]
                banco[var_ocup == 2513, isco := 2443]
                banco[var_ocup == 2514, isco := 2443]
                banco[var_ocup == 2515, isco := 2445]
                banco[var_ocup == 2516, isco := 2446]
                banco[var_ocup == 2521, isco := 3431]
                banco[var_ocup == 2522, isco := 2411]
                banco[var_ocup == 2523, isco := 3431]
                banco[var_ocup == 2524, isco := 3423]
                banco[var_ocup == 2525, isco := 3431]
                banco[var_ocup == 2531, isco := 2419]
                banco[var_ocup == 2611, isco := 2451]
                banco[var_ocup == 2612, isco := 2451]
                banco[var_ocup == 2613, isco := 2431]
                banco[var_ocup == 2614, isco := 2444]
                banco[var_ocup == 2615, isco := 2451]
                banco[var_ocup == 2616, isco := 2451]
                banco[var_ocup == 2617, isco := 3472]
                banco[var_ocup == 2621, isco := 2455]
                banco[var_ocup == 2622, isco := 2455]
                banco[var_ocup == 2623, isco := 2455]
                banco[var_ocup == 2624, isco := 2453]
                banco[var_ocup == 2625, isco := 2452]
                banco[var_ocup == 2627, isco := 3471]
                banco[var_ocup == 2631, isco := 2460]
                banco[var_ocup == 3001, isco := 3114]
                banco[var_ocup == 3003, isco := 3114]
                banco[var_ocup == 3011, isco := 3111]
                banco[var_ocup == 3012, isco := 3211]
                banco[var_ocup == 3111, isco := 3111]
                banco[var_ocup == 3112, isco := 3111]
                banco[var_ocup == 3113, isco := 3111]
                banco[var_ocup == 3114, isco := 3111]
                banco[var_ocup == 3115, isco := 3212]
                banco[var_ocup == 3116, isco := 3111]
                banco[var_ocup == 3117, isco := 3111]
                banco[var_ocup == 3121, isco := 3112]
                banco[var_ocup == 3122, isco := 3112]
                banco[var_ocup == 3123, isco := 3112]
                banco[var_ocup == 3131, isco := 3113]
                banco[var_ocup == 3132, isco := 7242]
                banco[var_ocup == 3134, isco := 3114]
                banco[var_ocup == 3135, isco := 3114]
                banco[var_ocup == 3136, isco := 3115]
                banco[var_ocup == 3141, isco := 3115]
                banco[var_ocup == 3142, isco := 7223]
                banco[var_ocup == 3143, isco := 7231]
                banco[var_ocup == 3144, isco := 7223]
                banco[var_ocup == 3146, isco := 3117]
                banco[var_ocup == 3147, isco := 3117]
                banco[var_ocup == 3161, isco := 3117]
                banco[var_ocup == 3162, isco := 3117]
                banco[var_ocup == 3163, isco := 3117]
                banco[var_ocup == 3171, isco := 3122]
                banco[var_ocup == 3172, isco := 3122]
                banco[var_ocup == 3189, isco := 3118]
                banco[var_ocup == 3191, isco := 3471]
                banco[var_ocup == 3192, isco := 3471]
                banco[var_ocup == 3201, isco := 3211]
                banco[var_ocup == 3210, isco := 3212]
                banco[var_ocup == 3211, isco := 3212]
                banco[var_ocup == 3212, isco := 3212]
                banco[var_ocup == 3213, isco := 3212]
                banco[var_ocup == 3214, isco := 3212]
                banco[var_ocup == 3221, isco := 3226]
                banco[var_ocup == 3222, isco := 3231]
                banco[var_ocup == 3223, isco := 3224]
                banco[var_ocup == 3224, isco := 3225]
                banco[var_ocup == 3225, isco := 3226]
                banco[var_ocup == 3231, isco := 3227]
                banco[var_ocup == 3232, isco := 3227]
                banco[var_ocup == 3241, isco := 3133]
                banco[var_ocup == 3242, isco := 3211]
                banco[var_ocup == 3250, isco := 3111]
                banco[var_ocup == 3251, isco := 3228]
                banco[var_ocup == 3252, isco := 3111]
                banco[var_ocup == 3253, isco := 3211]
                banco[var_ocup == 3281, isco := 5143]
                banco[var_ocup == 3311, isco := 2332]
                banco[var_ocup == 3312, isco := 2331]
                banco[var_ocup == 3313, isco := 2359]
                banco[var_ocup == 3321, isco := 2331]
                banco[var_ocup == 3322, isco := 2359]
                banco[var_ocup == 3331, isco := 2359]
                banco[var_ocup == 3341, isco := 3340]
                banco[var_ocup == 3411, isco := 3143]
                banco[var_ocup == 3412, isco := 3142]
                banco[var_ocup == 3413, isco := 3142]
                banco[var_ocup == 3421, isco := 3119]
                banco[var_ocup == 3422, isco := 3422]
                banco[var_ocup == 3423, isco := 4133]
                banco[var_ocup == 3424, isco := 5112]
                banco[var_ocup == 3425, isco := 3144]
                banco[var_ocup == 3426, isco := 3141]
                banco[var_ocup == 3511, isco := 3433]
                banco[var_ocup == 3512, isco := 3434]
                banco[var_ocup == 3513, isco := 3431]
                banco[var_ocup == 3514, isco := 3432]
                banco[var_ocup == 3515, isco := 3449]
                banco[var_ocup == 3516, isco := 3152]
                banco[var_ocup == 3517, isco := 3411]
                banco[var_ocup == 3518, isco := 3450]
                banco[var_ocup == 3522, isco := 3211]
                banco[var_ocup == 3523, isco := 3152]
                banco[var_ocup == 3524, isco := 3152]
                banco[var_ocup == 3525, isco := 3152]
                banco[var_ocup == 3531, isco := 3411]
                banco[var_ocup == 3532, isco := 4121]
                banco[var_ocup == 3541, isco := 3415]
                banco[var_ocup == 3542, isco := 3416]
                banco[var_ocup == 3543, isco := 3415]
                banco[var_ocup == 3544, isco := 3417]
                banco[var_ocup == 3545, isco := 3411]
                banco[var_ocup == 3546, isco := 3413]
                banco[var_ocup == 3547, isco := 3411]
                banco[var_ocup == 3548, isco := 3415]
                banco[var_ocup == 3711, isco := 3439]
                banco[var_ocup == 3712, isco := 2431]
                banco[var_ocup == 3713, isco := 3118]
                banco[var_ocup == 3721, isco := 3131]
                banco[var_ocup == 3722, isco := 3131]
                banco[var_ocup == 3723, isco := 3132]
                banco[var_ocup == 3731, isco := 3131]
                banco[var_ocup == 3732, isco := 3131]
                banco[var_ocup == 3741, isco := 3131]
                banco[var_ocup == 3742, isco := 3131]
                banco[var_ocup == 3743, isco := 3131]
                banco[var_ocup == 3751, isco := 3471]
                banco[var_ocup == 3761, isco := 2455]
                banco[var_ocup == 3762, isco := 2453]
                banco[var_ocup == 3763, isco := 2455]
                banco[var_ocup == 3764, isco := 2455]
                banco[var_ocup == 3765, isco := 5210]
                banco[var_ocup == 3771, isco := 3475]
                banco[var_ocup == 3772, isco := 3475]
                banco[var_ocup == 3773, isco := 3475]
                banco[var_ocup == 3911, isco := 3119]
                banco[var_ocup == 3912, isco := 3152]
                banco[var_ocup == 4101, isco := 4121]
                banco[var_ocup == 4102, isco := 4121]
                banco[var_ocup == 4110, isco := 4121]
                banco[var_ocup == 4121, isco := 4115]
                banco[var_ocup == 4122, isco := 4111]
                banco[var_ocup == 4123, isco := 9151]
                banco[var_ocup == 4131, isco := 4121]
                banco[var_ocup == 4132, isco := 4121]
                banco[var_ocup == 4141, isco := 4131]
                banco[var_ocup == 4142, isco := 4132]
                banco[var_ocup == 4151, isco := 4141]
                banco[var_ocup == 4152, isco := 4142]
                banco[var_ocup == 4201, isco := 4115]
                banco[var_ocup == 4211, isco := 4211]
                banco[var_ocup == 4212, isco := 4121]
                banco[var_ocup == 4213, isco := 4213]
                banco[var_ocup == 4214, isco := 4215]
                banco[var_ocup == 4221, isco := 4222]
                banco[var_ocup == 4222, isco := 4223]
                banco[var_ocup == 4223, isco := 4223]
                banco[var_ocup == 4231, isco := 4133]
                banco[var_ocup == 4241, isco := 4122]
                banco[var_ocup == 5101, isco := 5121]
                banco[var_ocup == 5102, isco := 5139]
                banco[var_ocup == 5103, isco := 5169]
                banco[var_ocup == 5111, isco := 5111]
                banco[var_ocup == 5112, isco := 5112]
                banco[var_ocup == 5114, isco := 5113]
                banco[var_ocup == 5121, isco := 9131]
                banco[var_ocup == 5131, isco := 5121]
                banco[var_ocup == 5132, isco := 5122]
                banco[var_ocup == 5133, isco := 9132]
                banco[var_ocup == 5134, isco := 5123]
                banco[var_ocup == 5141, isco := 9132]
                banco[var_ocup == 5142, isco := 9141]
                banco[var_ocup == 5151, isco := 3232]
                banco[var_ocup == 5152, isco := 3211]
                banco[var_ocup == 5161, isco := 5141]
                banco[var_ocup == 5162, isco := 5133]
                banco[var_ocup == 5165, isco := 5143]
                banco[var_ocup == 5166, isco := 5143]
                banco[var_ocup == 5167, isco := 5151]
                banco[var_ocup == 5169, isco := 9133]
                banco[var_ocup == 5171, isco := 110]
                banco[var_ocup == 5172, isco := 5162]
                banco[var_ocup == 5173, isco := 5163]
                banco[var_ocup == 5174, isco := 9152]
                banco[var_ocup == 5191, isco := 9151]
                banco[var_ocup == 5192, isco := 9161]
                banco[var_ocup == 5198, isco := 10]
                banco[var_ocup == 5199, isco := 5149]
                banco[var_ocup == 5201, isco := 5220]
                banco[var_ocup == 5211, isco := 5220]
                banco[var_ocup == 5221, isco := 9333]
                banco[var_ocup == 5231, isco := 7243]
                banco[var_ocup == 5241, isco := 9113]
                banco[var_ocup == 5242, isco := 9111]
                banco[var_ocup == 5243, isco := 9111]
                banco[var_ocup == 6110, isco := 6111]
                banco[var_ocup == 6129, isco := 6111]
                banco[var_ocup == 6139, isco := 6121]
                banco[var_ocup == 6201, isco := 6111]
                banco[var_ocup == 6210, isco := 9211]
                banco[var_ocup == 6229, isco := 9211]
                banco[var_ocup == 6239, isco := 9211]
                banco[var_ocup == 6301, isco := 6141]
                banco[var_ocup == 6319, isco := 6154]
                banco[var_ocup == 6329, isco := 6141]
                banco[var_ocup == 6410, isco := 8331]
                banco[var_ocup == 6420, isco := 8331]
                banco[var_ocup == 6430, isco := 8331]
                banco[var_ocup == 7101, isco := 3117]
                banco[var_ocup == 7102, isco := 7129]
                banco[var_ocup == 7111, isco := 7111]
                banco[var_ocup == 7112, isco := 8111]
                banco[var_ocup == 7113, isco := 8113]
                banco[var_ocup == 7114, isco := 9311]
                banco[var_ocup == 7121, isco := 8112]
                banco[var_ocup == 7122, isco := 7113]
                banco[var_ocup == 7151, isco := 8332]
                banco[var_ocup == 7152, isco := 7122]
                banco[var_ocup == 7153, isco := 7123]
                banco[var_ocup == 7154, isco := 8212]
                banco[var_ocup == 7155, isco := 7124]
                banco[var_ocup == 7156, isco := 7137]
                banco[var_ocup == 7157, isco := 7134]
                banco[var_ocup == 7161, isco := 7123]
                banco[var_ocup == 7162, isco := 7131]
                banco[var_ocup == 7163, isco := 7135]
                banco[var_ocup == 7164, isco := 7133]
                banco[var_ocup == 7165, isco := 7132]
                banco[var_ocup == 7166, isco := 7141]
                banco[var_ocup == 7170, isco := 7122]
                banco[var_ocup == 7201, isco := 3115]
                banco[var_ocup == 7202, isco := 3115]
                banco[var_ocup == 7211, isco := 7222]
                banco[var_ocup == 7212, isco := 7223]
                banco[var_ocup == 7213, isco := 8113]
                banco[var_ocup == 7214, isco := 7224]
                banco[var_ocup == 7215, isco := 8113]
                banco[var_ocup == 7221, isco := 7221]
                banco[var_ocup == 7222, isco := 8122]
                banco[var_ocup == 7223, isco := 7211]
                banco[var_ocup == 7224, isco := 8124]
                banco[var_ocup == 7231, isco := 8122]
                banco[var_ocup == 7232, isco := 8223]
                banco[var_ocup == 7233, isco := 7141]
                banco[var_ocup == 7241, isco := 7136]
                banco[var_ocup == 7242, isco := 7214]
                banco[var_ocup == 7243, isco := 7212]
                banco[var_ocup == 7244, isco := 7213]
                banco[var_ocup == 7245, isco := 8124]
                banco[var_ocup == 7246, isco := 7215]
                banco[var_ocup == 7250, isco := 7223]
                banco[var_ocup == 7251, isco := 8281]
                banco[var_ocup == 7252, isco := 8281]
                banco[var_ocup == 7253, isco := 8281]
                banco[var_ocup == 7254, isco := 8281]
                banco[var_ocup == 7255, isco := 8290]
                banco[var_ocup == 7256, isco := 8290]
                banco[var_ocup == 7257, isco := 7223]
                banco[var_ocup == 7301, isco := 3114]
                banco[var_ocup == 7311, isco := 8283]
                banco[var_ocup == 7312, isco := 8283]
                banco[var_ocup == 7313, isco := 7244]
                banco[var_ocup == 7321, isco := 7215]
                banco[var_ocup == 7401, isco := 7311]
                banco[var_ocup == 7411, isco := 7311]
                banco[var_ocup == 7421, isco := 7312]
                banco[var_ocup == 7501, isco := 7313]
                banco[var_ocup == 7502, isco := 7322]
                banco[var_ocup == 7519, isco := 7313]
                banco[var_ocup == 7521, isco := 7322]
                banco[var_ocup == 7522, isco := 7322]
                banco[var_ocup == 7523, isco := 7321]
                banco[var_ocup == 7524, isco := 7324]
                banco[var_ocup == 7601, isco := 8269]
                banco[var_ocup == 7602, isco := 8269]
                banco[var_ocup == 7603, isco := 8269]
                banco[var_ocup == 7604, isco := 8269]
                banco[var_ocup == 7605, isco := 8269]
                banco[var_ocup == 7606, isco := 3118]
                banco[var_ocup == 7610, isco := 3119]
                banco[var_ocup == 7611, isco := 7431]
                banco[var_ocup == 7612, isco := 8261]
                banco[var_ocup == 7613, isco := 8262]
                banco[var_ocup == 7614, isco := 8264]
                banco[var_ocup == 7618, isco := 7433]
                banco[var_ocup == 7620, isco := 7332]
                banco[var_ocup == 7621, isco := 7441]
                banco[var_ocup == 7622, isco := 7441]
                banco[var_ocup == 7623, isco := 7441]
                banco[var_ocup == 7630, isco := 7432]
                banco[var_ocup == 7631, isco := 7435]
                banco[var_ocup == 7632, isco := 8262]
                banco[var_ocup == 7633, isco := 7435]
                banco[var_ocup == 7640, isco := 8266]
                banco[var_ocup == 7641, isco := 7442]
                banco[var_ocup == 7642, isco := 8266]
                banco[var_ocup == 7643, isco := 7442]
                banco[var_ocup == 7650, isco := 7433]
                banco[var_ocup == 7651, isco := 7332]
                banco[var_ocup == 7652, isco := 7436]
                banco[var_ocup == 7653, isco := 8269]
                banco[var_ocup == 7654, isco := 7332]
                banco[var_ocup == 7660, isco := 8252]
                banco[var_ocup == 7661, isco := 7343]
                banco[var_ocup == 7662, isco := 8251]
                banco[var_ocup == 7663, isco := 7345]
                banco[var_ocup == 7664, isco := 7344]
                banco[var_ocup == 7681, isco := 7432]
                banco[var_ocup == 7682, isco := 7436]
                banco[var_ocup == 7683, isco := 7442]
                banco[var_ocup == 7686, isco := 7341]
                banco[var_ocup == 7687, isco := 7345]
                banco[var_ocup == 7701, isco := 7422]
                banco[var_ocup == 7711, isco := 7422]
                banco[var_ocup == 7721, isco := 7421]
                banco[var_ocup == 7731, isco := 8141]
                banco[var_ocup == 7732, isco := 8141]
                banco[var_ocup == 7733, isco := 7423]
                banco[var_ocup == 7734, isco := 8240]
                banco[var_ocup == 7735, isco := 8240]
                banco[var_ocup == 7741, isco := 7422]
                banco[var_ocup == 7751, isco := 7422]
                banco[var_ocup == 7764, isco := 7424]
                banco[var_ocup == 7771, isco := 7124]
                banco[var_ocup == 7772, isco := 7124]
                banco[var_ocup == 7801, isco := 9322]
                banco[var_ocup == 7811, isco := 8172]
                banco[var_ocup == 7813, isco := 8172]
                banco[var_ocup == 7817, isco := 7216]
                banco[var_ocup == 7820, isco := 8322]
                banco[var_ocup == 7821, isco := 8333]
                banco[var_ocup == 7822, isco := 8333]
                banco[var_ocup == 7823, isco := 8322]
                banco[var_ocup == 7824, isco := 8322]
                banco[var_ocup == 7825, isco := 8324]
                banco[var_ocup == 7826, isco := 8311]
                banco[var_ocup == 7827, isco := 8340]
                banco[var_ocup == 7828, isco := 9332]
                banco[var_ocup == 7831, isco := 8312]
                banco[var_ocup == 7832, isco := 9333]
                banco[var_ocup == 7841, isco := 9322]
                banco[var_ocup == 7842, isco := 9321]
                banco[var_ocup == 8101, isco := 8159]
                banco[var_ocup == 8102, isco := 8232]
                banco[var_ocup == 8103, isco := 8159]
                banco[var_ocup == 8110, isco := 8151]
                banco[var_ocup == 8111, isco := 8152]
                banco[var_ocup == 8112, isco := 8152]
                banco[var_ocup == 8113, isco := 8153]
                banco[var_ocup == 8114, isco := 8154]
                banco[var_ocup == 8115, isco := 8155]
                banco[var_ocup == 8116, isco := 8152]
                banco[var_ocup == 8117, isco := 8231]
                banco[var_ocup == 8118, isco := 8221]
                banco[var_ocup == 8121, isco := 8222]
                banco[var_ocup == 8131, isco := 8159]
                banco[var_ocup == 8181, isco := 3116]
                banco[var_ocup == 8201, isco := 3115]
                banco[var_ocup == 8202, isco := 3111]
                banco[var_ocup == 8211, isco := 8152]
                banco[var_ocup == 8212, isco := 8121]
                banco[var_ocup == 8213, isco := 8122]
                banco[var_ocup == 8214, isco := 8223]
                banco[var_ocup == 8221, isco := 8122]
                banco[var_ocup == 8231, isco := 8139]
                banco[var_ocup == 8232, isco := 8139]
                banco[var_ocup == 8233, isco := 8212]
                banco[var_ocup == 8281, isco := 7321]
                banco[var_ocup == 8301, isco := 8253]
                banco[var_ocup == 8311, isco := 8142]
                banco[var_ocup == 8321, isco := 8143]
                banco[var_ocup == 8339, isco := 8253]
                banco[var_ocup == 8401, isco := 3111]
                banco[var_ocup == 8411, isco := 8273]
                banco[var_ocup == 8412, isco := 8276]
                banco[var_ocup == 8413, isco := 8276]
                banco[var_ocup == 8416, isco := 8277]
                banco[var_ocup == 8417, isco := 8278]
                banco[var_ocup == 8421, isco := 7416]
                banco[var_ocup == 8423, isco := 7416]
                banco[var_ocup == 8429, isco := 7416]
                banco[var_ocup == 8484, isco := 7415]
                banco[var_ocup == 8485, isco := 7411]
                banco[var_ocup == 8491, isco := 8271]
                banco[var_ocup == 8492, isco := 8272]
                banco[var_ocup == 8493, isco := 7412]
                banco[var_ocup == 8601, isco := 8161]
                banco[var_ocup == 8611, isco := 8161]
                banco[var_ocup == 8612, isco := 8161]
                banco[var_ocup == 8621, isco := 8162]
                banco[var_ocup == 8622, isco := 8163]
                banco[var_ocup == 8623, isco := 8163]
                banco[var_ocup == 8624, isco := 8163]
                banco[var_ocup == 8625, isco := 8163]
                banco[var_ocup == 8711, isco := 9321]
                banco[var_ocup == 9101, isco := 7233]
                banco[var_ocup == 9102, isco := 7231]
                banco[var_ocup == 9109, isco := 7233]
                banco[var_ocup == 9111, isco := 7233]
                banco[var_ocup == 9112, isco := 7233]
                banco[var_ocup == 9113, isco := 7233]
                banco[var_ocup == 9131, isco := 7233]
                banco[var_ocup == 9141, isco := 7232]
                banco[var_ocup == 9142, isco := 7232]
                banco[var_ocup == 9143, isco := 7233]
                banco[var_ocup == 9144, isco := 7231]
                banco[var_ocup == 9151, isco := 7311]
                banco[var_ocup == 9152, isco := 7311]
                banco[var_ocup == 9153, isco := 7311]
                banco[var_ocup == 9154, isco := 7344]
                banco[var_ocup == 9191, isco := 7233]
                banco[var_ocup == 9192, isco := 7241]
                banco[var_ocup == 9193, isco := 7231]
                banco[var_ocup == 9501, isco := 7241]
                banco[var_ocup == 9502, isco := 7231]
                banco[var_ocup == 9503, isco := 7241]
                banco[var_ocup == 9511, isco := 7242]
                banco[var_ocup == 9513, isco := 7245]
                banco[var_ocup == 9531, isco := 7243]
                banco[var_ocup == 9541, isco := 7241]
                banco[var_ocup == 9542, isco := 7242]
                banco[var_ocup == 9543, isco := 7243]
                banco[var_ocup == 9911, isco := 9312]
                banco[var_ocup == 9912, isco := 7243]
                banco[var_ocup == 9913, isco := 7141]
                banco[var_ocup == 9914, isco := 9141]
                banco[var_ocup == 9921, isco := 8231]
                banco[var_ocup == 9922, isco := 9312]
                banco[var_ocup == 9999, isco := NA]
                banco[var_ocup == 9998, isco := NA]
                banco[var_ocup == 9988, isco := NA]
                banco[var_ocup == 0, isco := NA]
                
        }
        
        
        if((tipo == "censo" & ano == 1991) | (tipo == "pnad" & (ano >= 1992 & ano <= 2001))){
                banco[var_ocup == 1, isco := 6111]
                banco[var_ocup == 2, isco := 6121]
                banco[var_ocup == 3, isco := 6122]
                banco[var_ocup == 4, isco := 6129]
                banco[var_ocup == 5, isco := 6129]
                banco[var_ocup == 6, isco := 1221]
                banco[var_ocup == 7, isco := 1222]
                banco[var_ocup == 8, isco := 1222]
                banco[var_ocup == 9, isco := 1223]
                banco[var_ocup == 10, isco := 1233]
                banco[var_ocup == 11, isco := 1225]
                banco[var_ocup == 12, isco := 1226]
                banco[var_ocup == 13, isco := 9112]
                banco[var_ocup == 14, isco := 9111]
                banco[var_ocup == 15, isco := 1319]
                banco[var_ocup == 20, isco := 1110]
                banco[var_ocup == 21, isco := 1120]
                banco[var_ocup == 30, isco := 1221]
                banco[var_ocup == 31, isco := 1221]
                banco[var_ocup == 32, isco := 1222]
                banco[var_ocup == 33, isco := 1222]
                banco[var_ocup == 34, isco := 1223]
                banco[var_ocup == 35, isco := 1233]
                banco[var_ocup == 36, isco := 1225]
                banco[var_ocup == 37, isco := 1226]
                banco[var_ocup == 38, isco := 1231]
                banco[var_ocup == 39, isco := 1239]
                banco[var_ocup == 40, isco := 1319]
                banco[var_ocup == 50, isco := 3449]
                banco[var_ocup == 51, isco := 3152]
                banco[var_ocup == 52, isco := 4121]
                banco[var_ocup == 53, isco := 4121]
                banco[var_ocup == 54, isco := 4131]
                banco[var_ocup == 55, isco := 4131]
                banco[var_ocup == 56, isco := 4111]
                banco[var_ocup == 57, isco := 4112]
                banco[var_ocup == 58, isco := 4113]
                banco[var_ocup == 59, isco := 4115]
                banco[var_ocup == 60, isco := 4121]
                banco[var_ocup == 61, isco := 4190]
                banco[var_ocup == 62, isco := 4141]
                banco[var_ocup == 63, isco := 4222]
                banco[var_ocup == 64, isco := 4121]
                banco[var_ocup == 101, isco := 2142]
                banco[var_ocup == 102, isco := 2141]
                banco[var_ocup == 103, isco := 2148]
                banco[var_ocup == 104, isco := 2148]
                banco[var_ocup == 111, isco := 3118]
                banco[var_ocup == 112, isco := 3112]
                banco[var_ocup == 113, isco := 3119]
                banco[var_ocup == 121, isco := 2113]
                banco[var_ocup == 122, isco := 2224]
                banco[var_ocup == 123, isco := 2111]
                banco[var_ocup == 124, isco := 2147]
                banco[var_ocup == 125, isco := 2111]
                banco[var_ocup == 131, isco := 3111]
                banco[var_ocup == 132, isco := 3228]
                banco[var_ocup == 133, isco := 3111]
                banco[var_ocup == 141, isco := 2213]
                banco[var_ocup == 142, isco := 2211]
                banco[var_ocup == 143, isco := 2212]
                banco[var_ocup == 144, isco := 2223]
                banco[var_ocup == 151, isco := 2221]
                banco[var_ocup == 152, isco := 2222]
                banco[var_ocup == 153, isco := 2230]
                banco[var_ocup == 154, isco := 2229]
                banco[var_ocup == 161, isco := 2229]
                banco[var_ocup == 162, isco := 3231]
                banco[var_ocup == 163, isco := 3226]
                banco[var_ocup == 164, isco := 3224]
                banco[var_ocup == 165, isco := 3133]
                banco[var_ocup == 166, isco := 3232]
                banco[var_ocup == 167, isco := 3225]
                banco[var_ocup == 168, isco := 3211]
                banco[var_ocup == 171, isco := 2121]
                banco[var_ocup == 172, isco := 2122]
                banco[var_ocup == 173, isco := 2131]
                banco[var_ocup == 181, isco := 2441]
                banco[var_ocup == 182, isco := 2411]
                banco[var_ocup == 183, isco := 3431]
                banco[var_ocup == 191, isco := 3439]
                banco[var_ocup == 192, isco := 3434]
                banco[var_ocup == 193, isco := 4143]
                banco[var_ocup == 194, isco := 3122]
                banco[var_ocup == 201, isco := 2442]
                banco[var_ocup == 202, isco := 2445]
                banco[var_ocup == 203, isco := 2443]
                banco[var_ocup == 204, isco := 2446]
                banco[var_ocup == 205, isco := 2443]
                banco[var_ocup == 211, isco := 2310]
                banco[var_ocup == 212, isco := 2310]
                banco[var_ocup == 213, isco := 2320]
                banco[var_ocup == 214, isco := 2331]
                banco[var_ocup == 215, isco := 2331]
                banco[var_ocup == 216, isco := 2331]
                banco[var_ocup == 217, isco := 2332]
                banco[var_ocup == 218, isco := 2359]
                banco[var_ocup == 219, isco := 2359]
                banco[var_ocup == 221, isco := 2351]
                banco[var_ocup == 222, isco := 3340]
                banco[var_ocup == 231, isco := 2422]
                banco[var_ocup == 232, isco := 2429]
                banco[var_ocup == 233, isco := 2421]
                banco[var_ocup == 241, isco := 2429]
                banco[var_ocup == 242, isco := 3432]
                banco[var_ocup == 243, isco := 3432]
                banco[var_ocup == 244, isco := 3432]
                banco[var_ocup == 251, isco := 2460]
                banco[var_ocup == 252, isco := 3242]
                banco[var_ocup == 261, isco := 2451]
                banco[var_ocup == 271, isco := 2452]
                banco[var_ocup == 272, isco := 7332]
                banco[var_ocup == 273, isco := 3471]
                banco[var_ocup == 274, isco := 3131]
                banco[var_ocup == 275, isco := 2453]
                banco[var_ocup == 276, isco := 2455]
                banco[var_ocup == 277, isco := 2455]
                banco[var_ocup == 278, isco := 3472]
                banco[var_ocup == 279, isco := 2455]
                banco[var_ocup == 280, isco := 3131]
                banco[var_ocup == 281, isco := 3131]
                banco[var_ocup == 282, isco := 3132]
                banco[var_ocup == 283, isco := 3139]
                banco[var_ocup == 291, isco := 4141]
                banco[var_ocup == 292, isco := 2431]
                banco[var_ocup == 293, isco := 2444]
                banco[var_ocup == 301, isco := 6111]
                banco[var_ocup == 302, isco := 3212]
                banco[var_ocup == 303, isco := 8331]
                banco[var_ocup == 304, isco := 9211]
                banco[var_ocup == 305, isco := 9211]
                banco[var_ocup == 321, isco := 6154]
                banco[var_ocup == 322, isco := 6152]
                banco[var_ocup == 331, isco := 6141]
                banco[var_ocup == 332, isco := 6141]
                banco[var_ocup == 333, isco := 6142]
                banco[var_ocup == 334, isco := 6141]
                banco[var_ocup == 335, isco := 6111]
                banco[var_ocup == 336, isco := 6141]
                banco[var_ocup == 341, isco := 7111]
                banco[var_ocup == 345, isco := 7113]
                banco[var_ocup == 351, isco := 8111]
                banco[var_ocup == 361, isco := 8155]
                banco[var_ocup == 371, isco := 9311]
                banco[var_ocup == 381, isco := 9213]
                banco[var_ocup == 391, isco := 8113]
                banco[var_ocup == 401, isco := 3117]
                banco[var_ocup == 402, isco := 3117]
                banco[var_ocup == 403, isco := 3119]
                banco[var_ocup == 404, isco := 7129]
                banco[var_ocup == 405, isco := 3113]
                banco[var_ocup == 406, isco := 3119]
                banco[var_ocup == 411, isco := 8122]
                banco[var_ocup == 412, isco := 8122]
                banco[var_ocup == 413, isco := 8124]
                banco[var_ocup == 414, isco := 7211]
                banco[var_ocup == 415, isco := 8223]
                banco[var_ocup == 416, isco := 7224]
                banco[var_ocup == 417, isco := 7224]
                banco[var_ocup == 418, isco := 7222]
                banco[var_ocup == 419, isco := 8124]
                banco[var_ocup == 420, isco := 8211]
                banco[var_ocup == 421, isco := 8113]
                banco[var_ocup == 422, isco := 8211]
                banco[var_ocup == 423, isco := 7223]
                banco[var_ocup == 424, isco := 7231]
                banco[var_ocup == 425, isco := 7233]
                banco[var_ocup == 426, isco := 7212]
                banco[var_ocup == 427, isco := 7214]
                banco[var_ocup == 428, isco := 7213]
                banco[var_ocup == 429, isco := 7221]
                banco[var_ocup == 430, isco := 7213]
                banco[var_ocup == 431, isco := 7231]
                banco[var_ocup == 441, isco := 7431]
                banco[var_ocup == 442, isco := 8261]
                banco[var_ocup == 443, isco := 7431]
                banco[var_ocup == 444, isco := 8262]
                banco[var_ocup == 445, isco := 8262]
                banco[var_ocup == 446, isco := 8269]
                banco[var_ocup == 447, isco := 7332]
                banco[var_ocup == 448, isco := 8262]
                banco[var_ocup == 449, isco := 7432]
                banco[var_ocup == 450, isco := 8264]
                banco[var_ocup == 451, isco := 8264]
                banco[var_ocup == 452, isco := 8269]
                banco[var_ocup == 461, isco := 7332]
                banco[var_ocup == 462, isco := 7332]
                banco[var_ocup == 470, isco := 7433]
                banco[var_ocup == 471, isco := 7436]
                banco[var_ocup == 472, isco := 7433]
                banco[var_ocup == 473, isco := 7435]
                banco[var_ocup == 474, isco := 7432]
                banco[var_ocup == 475, isco := 7332]
                banco[var_ocup == 476, isco := 7433]
                banco[var_ocup == 477, isco := 7442]
                banco[var_ocup == 478, isco := 8266]
                banco[var_ocup == 479, isco := 7442]
                banco[var_ocup == 481, isco := 7422]
                banco[var_ocup == 482, isco := 7124]
                banco[var_ocup == 483, isco := 7421]
                banco[var_ocup == 484, isco := 8240]
                banco[var_ocup == 485, isco := 8141]
                banco[var_ocup == 486, isco := 8141]
                banco[var_ocup == 487, isco := 7437]
                banco[var_ocup == 488, isco := 7437]
                banco[var_ocup == 489, isco := 7421]
                banco[var_ocup == 490, isco := 7332]
                banco[var_ocup == 501, isco := 8282]
                banco[var_ocup == 502, isco := 8283]
                banco[var_ocup == 503, isco := 7242]
                banco[var_ocup == 504, isco := 8283]
                banco[var_ocup == 505, isco := 7243]
                banco[var_ocup == 506, isco := 7245]
                banco[var_ocup == 507, isco := 7244]
                banco[var_ocup == 508, isco := 7245]
                banco[var_ocup == 509, isco := 8161]
                banco[var_ocup == 511, isco := 7123]
                banco[var_ocup == 512, isco := 7122]
                banco[var_ocup == 513, isco := 7122]
                banco[var_ocup == 514, isco := 7141]
                banco[var_ocup == 515, isco := 7133]
                banco[var_ocup == 516, isco := 7132]
                banco[var_ocup == 517, isco := 7136]
                banco[var_ocup == 518, isco := 7135]
                banco[var_ocup == 519, isco := 7122]
                banco[var_ocup == 520, isco := 7132]
                banco[var_ocup == 521, isco := 8332]
                banco[var_ocup == 531, isco := 8271]
                banco[var_ocup == 532, isco := 7411]
                banco[var_ocup == 533, isco := 7411]
                banco[var_ocup == 534, isco := 8272]
                banco[var_ocup == 535, isco := 7412]
                banco[var_ocup == 536, isco := 7412]
                banco[var_ocup == 537, isco := 7412]
                banco[var_ocup == 538, isco := 8273]
                banco[var_ocup == 539, isco := 8276]
                banco[var_ocup == 540, isco := 8278]
                banco[var_ocup == 541, isco := 8277]
                banco[var_ocup == 542, isco := 8271]
                banco[var_ocup == 543, isco := 8277]
                banco[var_ocup == 544, isco := 8275]
                banco[var_ocup == 545, isco := 8273]
                banco[var_ocup == 551, isco := 7341]
                banco[var_ocup == 552, isco := 7341]
                banco[var_ocup == 553, isco := 7343]
                banco[var_ocup == 554, isco := 8251]
                banco[var_ocup == 555, isco := 7343]
                banco[var_ocup == 556, isco := 7345]
                banco[var_ocup == 557, isco := 7346]
                banco[var_ocup == 561, isco := 7322]
                banco[var_ocup == 562, isco := 7321]
                banco[var_ocup == 563, isco := 7324]
                banco[var_ocup == 564, isco := 7321]
                banco[var_ocup == 571, isco := 3152]
                banco[var_ocup == 572, isco := 7313]
                banco[var_ocup == 573, isco := 7313]
                banco[var_ocup == 574, isco := 8231]
                banco[var_ocup == 575, isco := 8231]
                banco[var_ocup == 576, isco := 8159]
                banco[var_ocup == 577, isco := 7424]
                banco[var_ocup == 578, isco := 7113]
                banco[var_ocup == 579, isco := 7416]
                banco[var_ocup == 580, isco := 7416]
                banco[var_ocup == 581, isco := 7141]
                banco[var_ocup == 582, isco := 8334]
                banco[var_ocup == 583, isco := 8290]
                banco[var_ocup == 584, isco := 9322]
                banco[var_ocup == 585, isco := 8253]
                banco[var_ocup == 586, isco := 8231]
                banco[var_ocup == 587, isco := 8212]
                banco[var_ocup == 588, isco := 3152]
                banco[var_ocup == 589, isco := 8290]
                banco[var_ocup == 601, isco := 1314]
                banco[var_ocup == 602, isco := 5220]
                banco[var_ocup == 603, isco := 4211]
                banco[var_ocup == 604, isco := 9333]
                banco[var_ocup == 605, isco := 5220]
                banco[var_ocup == 611, isco := 9111]
                banco[var_ocup == 612, isco := 9111]
                banco[var_ocup == 613, isco := 9111]
                banco[var_ocup == 614, isco := 9111]
                banco[var_ocup == 615, isco := 9111]
                banco[var_ocup == 616, isco := 9153]
                banco[var_ocup == 617, isco := 9112]
                banco[var_ocup == 621, isco := 9112]
                banco[var_ocup == 631, isco := 3415]
                banco[var_ocup == 632, isco := 3415]
                banco[var_ocup == 633, isco := 3415]
                banco[var_ocup == 641, isco := 3411]
                banco[var_ocup == 642, isco := 3413]
                banco[var_ocup == 643, isco := 3411]
                banco[var_ocup == 644, isco := 3417]
                banco[var_ocup == 645, isco := 3419]
                banco[var_ocup == 646, isco := 3416]
                banco[var_ocup == 711, isco := 3143]
                banco[var_ocup == 712, isco := 5111]
                banco[var_ocup == 721, isco := 3142]
                banco[var_ocup == 722, isco := 3142]
                banco[var_ocup == 723, isco := 8162]
                banco[var_ocup == 724, isco := 8162]
                banco[var_ocup == 725, isco := 8340]
                banco[var_ocup == 726, isco := 8340]
                banco[var_ocup == 727, isco := 8340]
                banco[var_ocup == 731, isco := 8333]
                banco[var_ocup == 732, isco := 9333]
                banco[var_ocup == 741, isco := 4133]
                banco[var_ocup == 742, isco := 8311]
                banco[var_ocup == 743, isco := 8311]
                banco[var_ocup == 744, isco := 8162]
                banco[var_ocup == 745, isco := 8312]
                banco[var_ocup == 746, isco := 8312]
                banco[var_ocup == 751, isco := 8322]
                banco[var_ocup == 752, isco := 5112]
                banco[var_ocup == 753, isco := 9332]
                banco[var_ocup == 761, isco := 4133]
                banco[var_ocup == 762, isco := 9312]
                banco[var_ocup == 771, isco := 4142]
                banco[var_ocup == 772, isco := 4142]
                banco[var_ocup == 773, isco := 3139]
                banco[var_ocup == 774, isco := 4223]
                banco[var_ocup == 775, isco := 4142]
                banco[var_ocup == 801, isco := 9131]
                banco[var_ocup == 802, isco := 5131]
                banco[var_ocup == 803, isco := 5122]
                banco[var_ocup == 804, isco := 9131]
                banco[var_ocup == 805, isco := 9131]
                banco[var_ocup == 806, isco := 5121]
                banco[var_ocup == 807, isco := 9131]
                banco[var_ocup == 808, isco := 9131]
                banco[var_ocup == 811, isco := 1315]
                banco[var_ocup == 812, isco := 9132]
                banco[var_ocup == 813, isco := 5122]
                banco[var_ocup == 814, isco := 5123]
                banco[var_ocup == 815, isco := 5123]
                banco[var_ocup == 816, isco := 5121]
                banco[var_ocup == 817, isco := 5123]
                banco[var_ocup == 818, isco := 5123]
                banco[var_ocup == 821, isco := 5141]
                banco[var_ocup == 822, isco := 5141]
                banco[var_ocup == 823, isco := 5141]
                banco[var_ocup == 824, isco := 5141]
                banco[var_ocup == 825, isco := 9131]
                banco[var_ocup == 826, isco := 9120]
                banco[var_ocup == 831, isco := 3475]
                banco[var_ocup == 832, isco := 3475]
                banco[var_ocup == 833, isco := 3475]
                banco[var_ocup == 834, isco := 3475]
                banco[var_ocup == 841, isco := 9152]
                banco[var_ocup == 842, isco := 9151]
                banco[var_ocup == 843, isco := 9152]
                banco[var_ocup == 844, isco := 9141]
                banco[var_ocup == 845, isco := 9151]
                banco[var_ocup == 851, isco := 6111]
                banco[var_ocup == 852, isco := 1314]
                banco[var_ocup == 861, isco := 110]
                banco[var_ocup == 862, isco := 110]
                banco[var_ocup == 863, isco := 110]
                banco[var_ocup == 864, isco := 3450]
                banco[var_ocup == 865, isco := 3450]
                banco[var_ocup == 866, isco := 5162]
                banco[var_ocup == 867, isco := 5163]
                banco[var_ocup == 868, isco := 3450]
                banco[var_ocup == 869, isco := 5169]
                banco[var_ocup == 911, isco := 9321]
                banco[var_ocup == 912, isco := 9152]
                banco[var_ocup == 913, isco := 7136]
                banco[var_ocup == 914, isco := 6111]
                banco[var_ocup == 915, isco := 7143]
                banco[var_ocup == 916, isco := 9120]
                banco[var_ocup == 917, isco := 3222]
                banco[var_ocup == 918, isco := 3444]
                banco[var_ocup == 919, isco := 6113]
                banco[var_ocup == 920, isco := 9161]
                banco[var_ocup == 921, isco := 7233]
                banco[var_ocup == 922, isco := 8163]
                banco[var_ocup == 923, isco := 8290]
                banco[var_ocup == 924, isco := 9333]
                banco[var_ocup == 925, isco := 9312]
                banco[var_ocup == 926, isco := 5131]
                banco[var_ocup == 927, isco := 9211]
                banco[var_ocup == 928, isco := NA]
                
                
        }
        
        
        if((tipo == "censo" & ano == 1980) | (tipo == "pnad" & (ano >= 1981 & ano <= 1990))){
                banco[var_ocup == 1, isco := 6111]
                banco[var_ocup == 2, isco := 6121]
                banco[var_ocup == 3, isco := 6122]
                banco[var_ocup == 4, isco := 6129]
                banco[var_ocup == 5, isco := 6129]
                banco[var_ocup == 6, isco := 1221]
                banco[var_ocup == 7, isco := 1222]
                banco[var_ocup == 8, isco := 1222]
                banco[var_ocup == 9, isco := 1223]
                banco[var_ocup == 10, isco := 1233]
                banco[var_ocup == 11, isco := 1225]
                banco[var_ocup == 12, isco := 1226]
                banco[var_ocup == 13, isco := 1319]
                banco[var_ocup == 20, isco := 1110]
                banco[var_ocup == 21, isco := 1120]
                banco[var_ocup == 30, isco := 1221]
                banco[var_ocup == 31, isco := 1221]
                banco[var_ocup == 32, isco := 1222]
                banco[var_ocup == 33, isco := 1222]
                banco[var_ocup == 34, isco := 1223]
                banco[var_ocup == 35, isco := 1233]
                banco[var_ocup == 36, isco := 1225]
                banco[var_ocup == 37, isco := 1226]
                banco[var_ocup == 38, isco := 1231]
                banco[var_ocup == 39, isco := 1239]
                banco[var_ocup == 40, isco := 1319]
                banco[var_ocup == 50, isco := 3449]
                banco[var_ocup == 51, isco := 3152]
                banco[var_ocup == 52, isco := 4121]
                banco[var_ocup == 53, isco := 4121]
                banco[var_ocup == 54, isco := 4131]
                banco[var_ocup == 55, isco := 4131]
                banco[var_ocup == 56, isco := 4111]
                banco[var_ocup == 57, isco := 4112]
                banco[var_ocup == 58, isco := 4113]
                banco[var_ocup == 59, isco := 4115]
                banco[var_ocup == 60, isco := 4121]
                banco[var_ocup == 61, isco := 4190]
                banco[var_ocup == 62, isco := 4141]
                banco[var_ocup == 63, isco := 4222]
                banco[var_ocup == 64, isco := 4121]
                banco[var_ocup == 65, isco := 4121]
                banco[var_ocup == 101, isco := 2142]
                banco[var_ocup == 102, isco := 2141]
                banco[var_ocup == 103, isco := 2148]
                banco[var_ocup == 104, isco := 2148]
                banco[var_ocup == 111, isco := 3118]
                banco[var_ocup == 112, isco := 3112]
                banco[var_ocup == 113, isco := 3119]
                banco[var_ocup == 121, isco := 2113]
                banco[var_ocup == 122, isco := 2224]
                banco[var_ocup == 123, isco := 2111]
                banco[var_ocup == 124, isco := 2147]
                banco[var_ocup == 125, isco := 2111]
                banco[var_ocup == 131, isco := 3111]
                banco[var_ocup == 132, isco := 3228]
                banco[var_ocup == 133, isco := 3111]
                banco[var_ocup == 141, isco := 2213]
                banco[var_ocup == 142, isco := 2211]
                banco[var_ocup == 143, isco := 2212]
                banco[var_ocup == 144, isco := 2223]
                banco[var_ocup == 151, isco := 2221]
                banco[var_ocup == 152, isco := 2222]
                banco[var_ocup == 153, isco := 2230]
                banco[var_ocup == 154, isco := 2229]
                banco[var_ocup == 161, isco := 2229]
                banco[var_ocup == 162, isco := 3231]
                banco[var_ocup == 163, isco := 3226]
                banco[var_ocup == 164, isco := 3224]
                banco[var_ocup == 165, isco := 3133]
                banco[var_ocup == 166, isco := 3232]
                banco[var_ocup == 167, isco := 3225]
                banco[var_ocup == 168, isco := 3211]
                banco[var_ocup == 171, isco := 2121]
                banco[var_ocup == 172, isco := 2122]
                banco[var_ocup == 173, isco := 2131]
                banco[var_ocup == 181, isco := 2441]
                banco[var_ocup == 182, isco := 2411]
                banco[var_ocup == 183, isco := 3431]
                banco[var_ocup == 191, isco := 3439]
                banco[var_ocup == 192, isco := 3434]
                banco[var_ocup == 193, isco := 3122]
                banco[var_ocup == 201, isco := 2442]
                banco[var_ocup == 202, isco := 2445]
                banco[var_ocup == 203, isco := 2443]
                banco[var_ocup == 204, isco := 2446]
                banco[var_ocup == 205, isco := 2443]
                banco[var_ocup == 211, isco := 2310]
                banco[var_ocup == 212, isco := 2310]
                banco[var_ocup == 213, isco := 2320]
                banco[var_ocup == 214, isco := 2331]
                banco[var_ocup == 215, isco := 2331]
                banco[var_ocup == 216, isco := 2331]
                banco[var_ocup == 217, isco := 2332]
                banco[var_ocup == 218, isco := 2359]
                banco[var_ocup == 219, isco := 2359]
                banco[var_ocup == 221, isco := 2351]
                banco[var_ocup == 222, isco := 3340]
                banco[var_ocup == 231, isco := 2422]
                banco[var_ocup == 232, isco := 2429]
                banco[var_ocup == 233, isco := 2421]
                banco[var_ocup == 241, isco := 2429]
                banco[var_ocup == 242, isco := 3432]
                banco[var_ocup == 243, isco := 3432]
                banco[var_ocup == 244, isco := 3432]
                banco[var_ocup == 251, isco := 2460]
                banco[var_ocup == 261, isco := 2451]
                banco[var_ocup == 271, isco := 2452]
                banco[var_ocup == 272, isco := 7332]
                banco[var_ocup == 273, isco := 3471]
                banco[var_ocup == 274, isco := 3131]
                banco[var_ocup == 275, isco := 2453]
                banco[var_ocup == 276, isco := 2455]
                banco[var_ocup == 277, isco := 2455]
                banco[var_ocup == 278, isco := 3472]
                banco[var_ocup == 279, isco := 2455]
                banco[var_ocup == 280, isco := 3131]
                banco[var_ocup == 281, isco := 3131]
                banco[var_ocup == 282, isco := 3132]
                banco[var_ocup == 283, isco := 3139]
                banco[var_ocup == 291, isco := 4141]
                banco[var_ocup == 292, isco := 2431]
                banco[var_ocup == 293, isco := 2444]
                banco[var_ocup == 301, isco := 6111]
                banco[var_ocup == 302, isco := 3212]
                banco[var_ocup == 303, isco := 8331]
                banco[var_ocup == 304, isco := 9211]
                banco[var_ocup == 321, isco := 6154]
                banco[var_ocup == 322, isco := 6152]
                banco[var_ocup == 331, isco := 6141]
                banco[var_ocup == 332, isco := 6141]
                banco[var_ocup == 333, isco := 6142]
                banco[var_ocup == 334, isco := 6141]
                banco[var_ocup == 335, isco := 6111]
                banco[var_ocup == 336, isco := 6141]
                banco[var_ocup == 341, isco := 7111]
                banco[var_ocup == 345, isco := 7113]
                banco[var_ocup == 351, isco := 8111]
                banco[var_ocup == 361, isco := 8155]
                banco[var_ocup == 371, isco := 9311]
                banco[var_ocup == 381, isco := 9213]
                banco[var_ocup == 391, isco := 8113]
                banco[var_ocup == 401, isco := 3117]
                banco[var_ocup == 402, isco := 3117]
                banco[var_ocup == 403, isco := 3119]
                banco[var_ocup == 404, isco := 7129]
                banco[var_ocup == 405, isco := 3113]
                banco[var_ocup == 406, isco := 3119]
                banco[var_ocup == 411, isco := 8122]
                banco[var_ocup == 412, isco := 8122]
                banco[var_ocup == 413, isco := 8124]
                banco[var_ocup == 414, isco := 7211]
                banco[var_ocup == 415, isco := 8223]
                banco[var_ocup == 416, isco := 7224]
                banco[var_ocup == 417, isco := 7224]
                banco[var_ocup == 418, isco := 7222]
                banco[var_ocup == 419, isco := 8124]
                banco[var_ocup == 420, isco := 8211]
                banco[var_ocup == 421, isco := 8113]
                banco[var_ocup == 422, isco := 8211]
                banco[var_ocup == 423, isco := 7223]
                banco[var_ocup == 424, isco := 7231]
                banco[var_ocup == 425, isco := 7233]
                banco[var_ocup == 426, isco := 7212]
                banco[var_ocup == 427, isco := 7214]
                banco[var_ocup == 428, isco := 7213]
                banco[var_ocup == 429, isco := 7221]
                banco[var_ocup == 430, isco := 7213]
                banco[var_ocup == 431, isco := 7231]
                banco[var_ocup == 441, isco := 7431]
                banco[var_ocup == 442, isco := 8261]
                banco[var_ocup == 443, isco := 7431]
                banco[var_ocup == 444, isco := 8262]
                banco[var_ocup == 445, isco := 8262]
                banco[var_ocup == 446, isco := 8269]
                banco[var_ocup == 447, isco := 7332]
                banco[var_ocup == 448, isco := 8262]
                banco[var_ocup == 449, isco := 7432]
                banco[var_ocup == 450, isco := 8264]
                banco[var_ocup == 451, isco := 8264]
                banco[var_ocup == 452, isco := 8269]
                banco[var_ocup == 461, isco := 7332]
                banco[var_ocup == 462, isco := 7332]
                banco[var_ocup == 470, isco := 7433]
                banco[var_ocup == 471, isco := 7436]
                banco[var_ocup == 472, isco := 7433]
                banco[var_ocup == 473, isco := 7435]
                banco[var_ocup == 474, isco := 7432]
                banco[var_ocup == 475, isco := 7332]
                banco[var_ocup == 476, isco := 7433]
                banco[var_ocup == 477, isco := 7442]
                banco[var_ocup == 478, isco := 8266]
                banco[var_ocup == 479, isco := 7442]
                banco[var_ocup == 481, isco := 7422]
                banco[var_ocup == 482, isco := 7124]
                banco[var_ocup == 483, isco := 7421]
                banco[var_ocup == 484, isco := 8240]
                banco[var_ocup == 485, isco := 8141]
                banco[var_ocup == 486, isco := 8141]
                banco[var_ocup == 487, isco := 7437]
                banco[var_ocup == 488, isco := 7437]
                banco[var_ocup == 489, isco := 7421]
                banco[var_ocup == 490, isco := 7332]
                banco[var_ocup == 491, isco := 8282]
                banco[var_ocup == 492, isco := 8283]
                banco[var_ocup == 493, isco := 7242]
                banco[var_ocup == 494, isco := 8283]
                banco[var_ocup == 495, isco := 7243]
                banco[var_ocup == 496, isco := 7245]
                banco[var_ocup == 497, isco := 7244]
                banco[var_ocup == 498, isco := 7245]
                banco[var_ocup == 499, isco := 8161]
                banco[var_ocup == 511, isco := 7123]
                banco[var_ocup == 512, isco := 7122]
                banco[var_ocup == 513, isco := 7122]
                banco[var_ocup == 514, isco := 7141]
                banco[var_ocup == 515, isco := 7133]
                banco[var_ocup == 516, isco := 7132]
                banco[var_ocup == 517, isco := 7136]
                banco[var_ocup == 518, isco := 7135]
                banco[var_ocup == 519, isco := 7122]
                banco[var_ocup == 520, isco := 7132]
                banco[var_ocup == 521, isco := 8332]
                banco[var_ocup == 531, isco := 8271]
                banco[var_ocup == 532, isco := 7411]
                banco[var_ocup == 533, isco := 7411]
                banco[var_ocup == 534, isco := 8272]
                banco[var_ocup == 535, isco := 7412]
                banco[var_ocup == 536, isco := 7412]
                banco[var_ocup == 537, isco := 7412]
                banco[var_ocup == 538, isco := 8273]
                banco[var_ocup == 539, isco := 8276]
                banco[var_ocup == 540, isco := 8278]
                banco[var_ocup == 541, isco := 8277]
                banco[var_ocup == 542, isco := 8271]
                banco[var_ocup == 543, isco := 8277]
                banco[var_ocup == 544, isco := 8275]
                banco[var_ocup == 545, isco := 8273]
                banco[var_ocup == 551, isco := 7341]
                banco[var_ocup == 552, isco := 7341]
                banco[var_ocup == 553, isco := 7343]
                banco[var_ocup == 554, isco := 8251]
                banco[var_ocup == 555, isco := 7343]
                banco[var_ocup == 556, isco := 7345]
                banco[var_ocup == 557, isco := 7346]
                banco[var_ocup == 561, isco := 7322]
                banco[var_ocup == 562, isco := 7321]
                banco[var_ocup == 563, isco := 7324]
                banco[var_ocup == 564, isco := 7321]
                banco[var_ocup == 571, isco := 3152]
                banco[var_ocup == 572, isco := 7313]
                banco[var_ocup == 573, isco := 7313]
                banco[var_ocup == 574, isco := 8231]
                banco[var_ocup == 575, isco := 8231]
                banco[var_ocup == 576, isco := 8159]
                banco[var_ocup == 577, isco := 7424]
                banco[var_ocup == 578, isco := 7113]
                banco[var_ocup == 579, isco := 7416]
                banco[var_ocup == 580, isco := 7416]
                banco[var_ocup == 581, isco := 7141]
                banco[var_ocup == 582, isco := 8334]
                banco[var_ocup == 583, isco := 8290]
                banco[var_ocup == 584, isco := 9322]
                banco[var_ocup == 585, isco := 8253]
                banco[var_ocup == 586, isco := 8231]
                banco[var_ocup == 587, isco := 8212]
                banco[var_ocup == 588, isco := 3152]
                banco[var_ocup == 589, isco := 8290]
                banco[var_ocup == 601, isco := 1314]
                banco[var_ocup == 602, isco := 5220]
                banco[var_ocup == 603, isco := 4211]
                banco[var_ocup == 604, isco := 9333]
                banco[var_ocup == 605, isco := 5220]
                banco[var_ocup == 611, isco := 9111]
                banco[var_ocup == 612, isco := 9111]
                banco[var_ocup == 613, isco := 9111]
                banco[var_ocup == 614, isco := 9111]
                banco[var_ocup == 615, isco := 9111]
                banco[var_ocup == 616, isco := 9153]
                banco[var_ocup == 617, isco := 9112]
                banco[var_ocup == 621, isco := 9112]
                banco[var_ocup == 631, isco := 3415]
                banco[var_ocup == 632, isco := 3415]
                banco[var_ocup == 633, isco := 3415]
                banco[var_ocup == 641, isco := 3411]
                banco[var_ocup == 642, isco := 3413]
                banco[var_ocup == 643, isco := 3411]
                banco[var_ocup == 644, isco := 3417]
                banco[var_ocup == 645, isco := 3419]
                banco[var_ocup == 646, isco := 3416]
                banco[var_ocup == 711, isco := 3143]
                banco[var_ocup == 712, isco := 5111]
                banco[var_ocup == 721, isco := 3142]
                banco[var_ocup == 722, isco := 3142]
                banco[var_ocup == 723, isco := 8162]
                banco[var_ocup == 724, isco := 8162]
                banco[var_ocup == 725, isco := 8340]
                banco[var_ocup == 726, isco := 8340]
                banco[var_ocup == 727, isco := 8340]
                banco[var_ocup == 731, isco := 8333]
                banco[var_ocup == 732, isco := 9333]
                banco[var_ocup == 741, isco := 4133]
                banco[var_ocup == 742, isco := 8311]
                banco[var_ocup == 743, isco := 8311]
                banco[var_ocup == 744, isco := 8162]
                banco[var_ocup == 745, isco := 8312]
                banco[var_ocup == 746, isco := 8312]
                banco[var_ocup == 751, isco := 8322]
                banco[var_ocup == 752, isco := 5112]
                banco[var_ocup == 753, isco := 9332]
                banco[var_ocup == 761, isco := 4133]
                banco[var_ocup == 762, isco := 9312]
                banco[var_ocup == 771, isco := 4142]
                banco[var_ocup == 772, isco := 4142]
                banco[var_ocup == 773, isco := 3139]
                banco[var_ocup == 774, isco := 4223]
                banco[var_ocup == 775, isco := 4142]
                banco[var_ocup == 776, isco := 7244]
                banco[var_ocup == 801, isco := 1314]
                banco[var_ocup == 805, isco := 9131]
                banco[var_ocup == 811, isco := 1315]
                banco[var_ocup == 812, isco := 9132]
                banco[var_ocup == 813, isco := 5122]
                banco[var_ocup == 814, isco := 5123]
                banco[var_ocup == 815, isco := 5123]
                banco[var_ocup == 821, isco := 5141]
                banco[var_ocup == 822, isco := 5141]
                banco[var_ocup == 823, isco := 5141]
                banco[var_ocup == 824, isco := 5141]
                banco[var_ocup == 825, isco := 9131]
                banco[var_ocup == 826, isco := 9120]
                banco[var_ocup == 831, isco := 3475]
                banco[var_ocup == 832, isco := 3475]
                banco[var_ocup == 833, isco := 3475]
                banco[var_ocup == 834, isco := 3475]
                banco[var_ocup == 841, isco := 9152]
                banco[var_ocup == 842, isco := 9151]
                banco[var_ocup == 843, isco := 9152]
                banco[var_ocup == 844, isco := 9141]
                banco[var_ocup == 845, isco := 9151]
                banco[var_ocup == 851, isco := 110]
                banco[var_ocup == 852, isco := 110]
                banco[var_ocup == 853, isco := 110]
                banco[var_ocup == 854, isco := 3450]
                banco[var_ocup == 855, isco := 3450]
                banco[var_ocup == 856, isco := 5162]
                banco[var_ocup == 857, isco := 5163]
                banco[var_ocup == 858, isco := 3450]
                banco[var_ocup == 859, isco := 5169]
                banco[var_ocup == 911, isco := 9321]
                banco[var_ocup == 912, isco := 9152]
                banco[var_ocup == 913, isco := 7136]
                banco[var_ocup == 914, isco := 6111]
                banco[var_ocup == 915, isco := 7143]
                banco[var_ocup == 916, isco := 9120]
                banco[var_ocup == 917, isco := 3222]
                banco[var_ocup == 918, isco := 3444]
                banco[var_ocup == 919, isco := 6113]
                banco[var_ocup == 920, isco := 9161]
                banco[var_ocup == 921, isco := 7233]
                banco[var_ocup == 922, isco := 8163]
                banco[var_ocup == 923, isco := 8290]
                banco[var_ocup == 924, isco := 9333]
                banco[var_ocup == 925, isco := 9312]
                banco[var_ocup == 926, isco := 9211]
                banco[var_ocup == 927, isco := NA]
                
                
        }
        
        
        if(tipo == "pnad" & ano >= 1976 & ano <= 1979 ) {
                banco[var_ocup == 11, isco := 2113]
                banco[var_ocup == 12, isco := 2111]
                banco[var_ocup == 13, isco := 2111]
                banco[var_ocup == 21, isco := 2142]
                banco[var_ocup == 22, isco := 2141]
                banco[var_ocup == 23, isco := 2114]
                banco[var_ocup == 25, isco := 2148]
                banco[var_ocup == 26, isco := 2148]
                banco[var_ocup == 27, isco := 3112]
                banco[var_ocup == 31, isco := 2213]
                banco[var_ocup == 32, isco := 2212]
                banco[var_ocup == 33, isco := 2211]
                banco[var_ocup == 34, isco := 2211]
                banco[var_ocup == 41, isco := 2221]
                banco[var_ocup == 42, isco := 2222]
                banco[var_ocup == 43, isco := 2223]
                banco[var_ocup == 44, isco := 2224]
                banco[var_ocup == 45, isco := 2230]
                banco[var_ocup == 46, isco := 2230]
                banco[var_ocup == 47, isco := 2229]
                banco[var_ocup == 51, isco := 3231]
                banco[var_ocup == 52, isco := 3226]
                banco[var_ocup == 53, isco := 3224]
                banco[var_ocup == 54, isco := 3226]
                banco[var_ocup == 55, isco := 3225]
                banco[var_ocup == 56, isco := 3133]
                banco[var_ocup == 57, isco := 3228]
                banco[var_ocup == 58, isco := 3211]
                banco[var_ocup == 59, isco := 3222]
                banco[var_ocup == 61, isco := 2121]
                banco[var_ocup == 62, isco := 2121]
                banco[var_ocup == 63, isco := 2131]
                banco[var_ocup == 71, isco := 2441]
                banco[var_ocup == 72, isco := 2411]
                banco[var_ocup == 73, isco := 3431]
                banco[var_ocup == 74, isco := 3434]
                banco[var_ocup == 81, isco := 2422]
                banco[var_ocup == 82, isco := 2429]
                banco[var_ocup == 83, isco := 2421]
                banco[var_ocup == 84, isco := 2429]
                banco[var_ocup == 91, isco := 3432]
                banco[var_ocup == 92, isco := 3432]
                banco[var_ocup == 93, isco := 3432]
                banco[var_ocup == 101, isco := 2310]
                banco[var_ocup == 102, isco := 2320]
                banco[var_ocup == 103, isco := 2331]
                banco[var_ocup == 104, isco := 2359]
                banco[var_ocup == 121, isco := 2451]
                banco[var_ocup == 122, isco := 2419]
                banco[var_ocup == 131, isco := 2452]
                banco[var_ocup == 132, isco := 3471]
                banco[var_ocup == 133, isco := 3131]
                banco[var_ocup == 141, isco := 2453]
                banco[var_ocup == 142, isco := 2455]
                banco[var_ocup == 143, isco := 2454]
                banco[var_ocup == 144, isco := 3472]
                banco[var_ocup == 145, isco := 2455]
                banco[var_ocup == 146, isco := 3132]
                banco[var_ocup == 151, isco := 2460]
                banco[var_ocup == 161, isco := 2446]
                banco[var_ocup == 162, isco := 2442]
                banco[var_ocup == 163, isco := 2432]
                banco[var_ocup == 164, isco := 2444]
                banco[var_ocup == 201, isco := 6111]
                banco[var_ocup == 202, isco := 6121]
                banco[var_ocup == 203, isco := 1221]
                banco[var_ocup == 204, isco := 1233]
                banco[var_ocup == 205, isco := 1225]
                banco[var_ocup == 206, isco := 1226]
                banco[var_ocup == 207, isco := 1319]
                banco[var_ocup == 211, isco := 1110]
                banco[var_ocup == 212, isco := 1110]
                banco[var_ocup == 213, isco := 1110]
                banco[var_ocup == 214, isco := 1120]
                banco[var_ocup == 221, isco := 1221]
                banco[var_ocup == 222, isco := 1222]
                banco[var_ocup == 223, isco := 1222]
                banco[var_ocup == 224, isco := 1223]
                banco[var_ocup == 225, isco := 1227]
                banco[var_ocup == 226, isco := 1233]
                banco[var_ocup == 227, isco := 1226]
                banco[var_ocup == 228, isco := 1225]
                banco[var_ocup == 229, isco := 1239]
                banco[var_ocup == 231, isco := 1231]
                banco[var_ocup == 232, isco := 1231]
                banco[var_ocup == 233, isco := 1233]
                banco[var_ocup == 234, isco := 1239]
                banco[var_ocup == 235, isco := 1239]
                banco[var_ocup == 241, isco := 3449]
                banco[var_ocup == 242, isco := 3152]
                banco[var_ocup == 243, isco := 4121]
                banco[var_ocup == 244, isco := 4121]
                banco[var_ocup == 245, isco := 4131]
                banco[var_ocup == 246, isco := 4111]
                banco[var_ocup == 247, isco := 4121]
                banco[var_ocup == 301, isco := 6210]
                banco[var_ocup == 302, isco := 3212]
                banco[var_ocup == 303, isco := 8331]
                banco[var_ocup == 311, isco := 6113]
                banco[var_ocup == 312, isco := 6113]
                banco[var_ocup == 313, isco := 9211]
                banco[var_ocup == 314, isco := 9211]
                banco[var_ocup == 321, isco := 6154]
                banco[var_ocup == 322, isco := 6152]
                banco[var_ocup == 331, isco := 6141]
                banco[var_ocup == 332, isco := 6142]
                banco[var_ocup == 333, isco := 6141]
                banco[var_ocup == 334, isco := 6111]
                banco[var_ocup == 335, isco := 6141]
                banco[var_ocup == 341, isco := 7111]
                banco[var_ocup == 351, isco := 7113]
                banco[var_ocup == 361, isco := 9311]
                banco[var_ocup == 371, isco := 8155]
                banco[var_ocup == 401, isco := 8122]
                banco[var_ocup == 402, isco := 8124]
                banco[var_ocup == 403, isco := 8124]
                banco[var_ocup == 404, isco := 8124]
                banco[var_ocup == 405, isco := 7211]
                banco[var_ocup == 406, isco := 8123]
                banco[var_ocup == 407, isco := 8124]
                banco[var_ocup == 408, isco := 8223]
                banco[var_ocup == 410, isco := 7221]
                banco[var_ocup == 411, isco := 7222]
                banco[var_ocup == 412, isco := 7223]
                banco[var_ocup == 413, isco := 7224]
                banco[var_ocup == 414, isco := 8281]
                banco[var_ocup == 415, isco := 7311]
                banco[var_ocup == 416, isco := 7231]
                banco[var_ocup == 417, isco := 7232]
                banco[var_ocup == 418, isco := 7212]
                banco[var_ocup == 419, isco := 7213]
                banco[var_ocup == 420, isco := 7231]
                banco[var_ocup == 421, isco := 7214]
                banco[var_ocup == 422, isco := 7213]
                banco[var_ocup == 431, isco := 7422]
                banco[var_ocup == 432, isco := 7421]
                banco[var_ocup == 433, isco := 8141]
                banco[var_ocup == 434, isco := 7421]
                banco[var_ocup == 435, isco := 7437]
                banco[var_ocup == 436, isco := 7437]
                banco[var_ocup == 437, isco := 8142]
                banco[var_ocup == 441, isco := 7431]
                banco[var_ocup == 442, isco := 8261]
                banco[var_ocup == 443, isco := 8262]
                banco[var_ocup == 444, isco := 7332]
                banco[var_ocup == 445, isco := 8262]
                banco[var_ocup == 446, isco := 8262]
                banco[var_ocup == 447, isco := 7432]
                banco[var_ocup == 448, isco := 8264]
                banco[var_ocup == 451, isco := 7441]
                banco[var_ocup == 452, isco := 7435]
                banco[var_ocup == 461, isco := 8273]
                banco[var_ocup == 462, isco := 8276]
                banco[var_ocup == 463, isco := 7411]
                banco[var_ocup == 464, isco := 8271]
                banco[var_ocup == 465, isco := 8272]
                banco[var_ocup == 466, isco := 7412]
                banco[var_ocup == 467, isco := 8277]
                banco[var_ocup == 468, isco := 8278]
                banco[var_ocup == 469, isco := 8271]
                banco[var_ocup == 470, isco := 7416]
                banco[var_ocup == 471, isco := 7416]
                banco[var_ocup == 472, isco := 7433]
                banco[var_ocup == 473, isco := 7435]
                banco[var_ocup == 474, isco := 7435]
                banco[var_ocup == 475, isco := 7432]
                banco[var_ocup == 476, isco := 7332]
                banco[var_ocup == 477, isco := 7433]
                banco[var_ocup == 478, isco := 7442]
                banco[var_ocup == 479, isco := 7442]
                banco[var_ocup == 480, isco := 7242]
                banco[var_ocup == 481, isco := 8283]
                banco[var_ocup == 482, isco := 7243]
                banco[var_ocup == 483, isco := 7242]
                banco[var_ocup == 484, isco := 7244]
                banco[var_ocup == 485, isco := 7245]
                banco[var_ocup == 490, isco := 7322]
                banco[var_ocup == 491, isco := 7321]
                banco[var_ocup == 492, isco := 7322]
                banco[var_ocup == 493, isco := 7324]
                banco[var_ocup == 494, isco := 7321]
                banco[var_ocup == 500, isco := 8231]
                banco[var_ocup == 501, isco := 8231]
                banco[var_ocup == 502, isco := 8231]
                banco[var_ocup == 510, isco := 8253]
                banco[var_ocup == 520, isco := 7341]
                banco[var_ocup == 521, isco := 8251]
                banco[var_ocup == 522, isco := 7342]
                banco[var_ocup == 523, isco := 7343]
                banco[var_ocup == 524, isco := 7344]
                banco[var_ocup == 525, isco := 7345]
                banco[var_ocup == 526, isco := 7346]
                banco[var_ocup == 530, isco := 7129]
                banco[var_ocup == 531, isco := 7123]
                banco[var_ocup == 532, isco := 7122]
                banco[var_ocup == 533, isco := 7122]
                banco[var_ocup == 534, isco := 7141]
                banco[var_ocup == 535, isco := 7133]
                banco[var_ocup == 536, isco := 7132]
                banco[var_ocup == 537, isco := 7136]
                banco[var_ocup == 538, isco := 7135]
                banco[var_ocup == 539, isco := 7122]
                banco[var_ocup == 540, isco := 7132]
                banco[var_ocup == 541, isco := 7214]
                banco[var_ocup == 542, isco := 8332]
                banco[var_ocup == 550, isco := 3119]
                banco[var_ocup == 551, isco := 9321]
                banco[var_ocup == 552, isco := 7312]
                banco[var_ocup == 553, isco := 7332]
                banco[var_ocup == 554, isco := 7313]
                banco[var_ocup == 555, isco := 7313]
                banco[var_ocup == 556, isco := 8159]
                banco[var_ocup == 557, isco := 7424]
                banco[var_ocup == 558, isco := 7113]
                banco[var_ocup == 559, isco := 7224]
                banco[var_ocup == 560, isco := 8290]
                banco[var_ocup == 561, isco := 7141]
                banco[var_ocup == 562, isco := 8290]
                banco[var_ocup == 563, isco := 9322]
                banco[var_ocup == 564, isco := 8290]
                banco[var_ocup == 600, isco := 7411]
                banco[var_ocup == 601, isco := 5220]
                banco[var_ocup == 602, isco := 9112]
                banco[var_ocup == 603, isco := 9112]
                banco[var_ocup == 610, isco := 3415]
                banco[var_ocup == 611, isco := 3415]
                banco[var_ocup == 612, isco := 3415]
                banco[var_ocup == 620, isco := 3411]
                banco[var_ocup == 621, isco := 3413]
                banco[var_ocup == 622, isco := 3411]
                banco[var_ocup == 623, isco := 3419]
                banco[var_ocup == 700, isco := 3143]
                banco[var_ocup == 701, isco := 5111]
                banco[var_ocup == 710, isco := 3142]
                banco[var_ocup == 711, isco := 3142]
                banco[var_ocup == 712, isco := 8162]
                banco[var_ocup == 713, isco := 8162]
                banco[var_ocup == 714, isco := 8340]
                banco[var_ocup == 715, isco := 8340]
                banco[var_ocup == 716, isco := 8340]
                banco[var_ocup == 720, isco := 8333]
                banco[var_ocup == 721, isco := 9333]
                banco[var_ocup == 730, isco := 4133]
                banco[var_ocup == 731, isco := 8311]
                banco[var_ocup == 732, isco := 8311]
                banco[var_ocup == 733, isco := 8162]
                banco[var_ocup == 734, isco := 8312]
                banco[var_ocup == 735, isco := 8312]
                banco[var_ocup == 740, isco := 4133]
                banco[var_ocup == 741, isco := 8322]
                banco[var_ocup == 742, isco := 5112]
                banco[var_ocup == 743, isco := 9332]
                banco[var_ocup == 750, isco := 4133]
                banco[var_ocup == 751, isco := 4133]
                banco[var_ocup == 752, isco := 9312]
                banco[var_ocup == 753, isco := 9312]
                banco[var_ocup == 760, isco := 4142]
                banco[var_ocup == 761, isco := 4142]
                banco[var_ocup == 762, isco := 3139]
                banco[var_ocup == 763, isco := 4223]
                banco[var_ocup == 764, isco := 4142]
                banco[var_ocup == 765, isco := 7244]
                banco[var_ocup == 800, isco := 5122]
                banco[var_ocup == 801, isco := 5123]
                banco[var_ocup == 802, isco := 9131]
                banco[var_ocup == 810, isco := 5141]
                banco[var_ocup == 811, isco := 5141]
                banco[var_ocup == 812, isco := 9131]
                banco[var_ocup == 813, isco := 9120]
                banco[var_ocup == 820, isco := 3475]
                banco[var_ocup == 821, isco := 3475]
                banco[var_ocup == 900, isco := 110]
                banco[var_ocup == 901, isco := 110]
                banco[var_ocup == 902, isco := 3450]
                banco[var_ocup == 903, isco := 3450]
                banco[var_ocup == 904, isco := 3450]
                banco[var_ocup == 905, isco := 5162]
                banco[var_ocup == 906, isco := 5163]
                banco[var_ocup == 907, isco := 3450]
                banco[var_ocup == 908, isco := 5169]
                banco[var_ocup == 950, isco := 6111]
                banco[var_ocup == 951, isco := 9152]
                banco[var_ocup == 952, isco := 9151]
                banco[var_ocup == 953, isco := 3222]
                banco[var_ocup == 954, isco := 3442]
                banco[var_ocup == 955, isco := 9161]
                banco[var_ocup == 956, isco := 9120]
                banco[var_ocup == 957, isco := 9333]
                banco[var_ocup == 958, isco := 9162]
                banco[var_ocup == 959, isco := 9211]
                banco[var_ocup == 960, isco := NA]
                
        }
        
        
        if( (tipo == "censo" & ano == 1970) | (tipo == "pnad" & ano == 1973 ) ) {
                banco[var_ocup == 0, isco := NA]
                banco[var_ocup == 11, isco := 6111]
                banco[var_ocup == 12, isco := 6121]
                banco[var_ocup == 13, isco := 6122]
                banco[var_ocup == 14, isco := 1222]
                banco[var_ocup == 15, isco := 1233]
                banco[var_ocup == 16, isco := 1225]
                banco[var_ocup == 17, isco := 1319]
                banco[var_ocup == 21, isco := 1120]
                banco[var_ocup == 22, isco := 1231]
                banco[var_ocup == 23, isco := 1221]
                banco[var_ocup == 24, isco := 1319]
                banco[var_ocup == 31, isco := 1221]
                banco[var_ocup == 32, isco := 1222]
                banco[var_ocup == 33, isco := 3431]
                banco[var_ocup == 34, isco := 3444]
                banco[var_ocup == 35, isco := 4121]
                banco[var_ocup == 36, isco := 3439]
                banco[var_ocup == 37, isco := 4131]
                banco[var_ocup == 38, isco := 4111]
                banco[var_ocup == 39, isco := 4111]
                banco[var_ocup == 40, isco := 4111]
                banco[var_ocup == 41, isco := 2444]
                banco[var_ocup == 42, isco := 4141]
                banco[var_ocup == 43, isco := 3122]
                banco[var_ocup == 44, isco := 4143]
                banco[var_ocup == 45, isco := 4190]
                banco[var_ocup == 101, isco := 2142]
                banco[var_ocup == 102, isco := 2141]
                banco[var_ocup == 103, isco := 2148]
                banco[var_ocup == 104, isco := 2148]
                banco[var_ocup == 111, isco := 2113]
                banco[var_ocup == 112, isco := 2224]
                banco[var_ocup == 113, isco := 2111]
                banco[var_ocup == 114, isco := 2114]
                banco[var_ocup == 115, isco := 2111]
                banco[var_ocup == 116, isco := 2111]
                banco[var_ocup == 121, isco := 2213]
                banco[var_ocup == 122, isco := 2223]
                banco[var_ocup == 123, isco := 3228]
                banco[var_ocup == 130, isco := 2221]
                banco[var_ocup == 131, isco := 2222]
                banco[var_ocup == 132, isco := 3232]
                banco[var_ocup == 133, isco := 2230]
                banco[var_ocup == 134, isco := 3231]
                banco[var_ocup == 135, isco := 3226]
                banco[var_ocup == 136, isco := 3225]
                banco[var_ocup == 137, isco := 3211]
                banco[var_ocup == 138, isco := 3228]
                banco[var_ocup == 139, isco := 3211]
                banco[var_ocup == 141, isco := 2121]
                banco[var_ocup == 142, isco := 2122]
                banco[var_ocup == 143, isco := 2441]
                banco[var_ocup == 144, isco := 2411]
                banco[var_ocup == 145, isco := 2442]
                banco[var_ocup == 151, isco := 2331]
                banco[var_ocup == 152, isco := 2320]
                banco[var_ocup == 153, isco := 2310]
                banco[var_ocup == 154, isco := 2359]
                banco[var_ocup == 155, isco := 2351]
                banco[var_ocup == 156, isco := 3340]
                banco[var_ocup == 161, isco := 2422]
                banco[var_ocup == 162, isco := 2429]
                banco[var_ocup == 163, isco := 2421]
                banco[var_ocup == 164, isco := 2429]
                banco[var_ocup == 165, isco := 3432]
                banco[var_ocup == 171, isco := 2460]
                banco[var_ocup == 172, isco := 2446]
                banco[var_ocup == 173, isco := 3460]
                banco[var_ocup == 181, isco := 2451]
                banco[var_ocup == 191, isco := 2452]
                banco[var_ocup == 192, isco := 2453]
                banco[var_ocup == 193, isco := 2455]
                banco[var_ocup == 194, isco := 3472]
                banco[var_ocup == 195, isco := 3471]
                banco[var_ocup == 196, isco := 3131]
                banco[var_ocup == 197, isco := 3131]
                banco[var_ocup == 198, isco := 3132]
                banco[var_ocup == 211, isco := 3212]
                banco[var_ocup == 212, isco := 8331]
                banco[var_ocup == 213, isco := 8331]
                banco[var_ocup == 221, isco := 6113]
                banco[var_ocup == 222, isco := 6113]
                banco[var_ocup == 223, isco := 9211]
                banco[var_ocup == 224, isco := 9211]
                banco[var_ocup == 231, isco := 6154]
                banco[var_ocup == 232, isco := 6152]
                banco[var_ocup == 241, isco := 6141]
                banco[var_ocup == 242, isco := 6142]
                banco[var_ocup == 243, isco := 6141]
                banco[var_ocup == 244, isco := 6111]
                banco[var_ocup == 245, isco := 6141]
                banco[var_ocup == 311, isco := 7111]
                banco[var_ocup == 321, isco := 7113]
                banco[var_ocup == 331, isco := 8155]
                banco[var_ocup == 341, isco := 9311]
                banco[var_ocup == 411, isco := 7211]
                banco[var_ocup == 412, isco := 8122]
                banco[var_ocup == 413, isco := 8124]
                banco[var_ocup == 414, isco := 7224]
                banco[var_ocup == 421, isco := 8124]
                banco[var_ocup == 422, isco := 8113]
                banco[var_ocup == 423, isco := 8211]
                banco[var_ocup == 424, isco := 7231]
                banco[var_ocup == 425, isco := 7233]
                banco[var_ocup == 426, isco := 8223]
                banco[var_ocup == 427, isco := 7212]
                banco[var_ocup == 428, isco := 7213]
                banco[var_ocup == 429, isco := 7221]
                banco[var_ocup == 430, isco := 7231]
                banco[var_ocup == 431, isco := 7214]
                banco[var_ocup == 432, isco := 7213]
                banco[var_ocup == 433, isco := 7221]
                banco[var_ocup == 441, isco := 7431]
                banco[var_ocup == 442, isco := 8261]
                banco[var_ocup == 443, isco := 7431]
                banco[var_ocup == 444, isco := 8262]
                banco[var_ocup == 445, isco := 8262]
                banco[var_ocup == 446, isco := 8269]
                banco[var_ocup == 447, isco := 7332]
                banco[var_ocup == 448, isco := 8262]
                banco[var_ocup == 449, isco := 7432]
                banco[var_ocup == 450, isco := 8264]
                banco[var_ocup == 451, isco := 8264]
                banco[var_ocup == 452, isco := 8269]
                banco[var_ocup == 461, isco := 7332]
                banco[var_ocup == 462, isco := 7332]
                banco[var_ocup == 471, isco := 7433]
                banco[var_ocup == 472, isco := 7432]
                banco[var_ocup == 473, isco := 7332]
                banco[var_ocup == 474, isco := 7433]
                banco[var_ocup == 475, isco := 7442]
                banco[var_ocup == 476, isco := 7442]
                banco[var_ocup == 481, isco := 7422]
                banco[var_ocup == 482, isco := 7124]
                banco[var_ocup == 483, isco := 7421]
                banco[var_ocup == 484, isco := 8141]
                banco[var_ocup == 485, isco := 7437]
                banco[var_ocup == 486, isco := 7437]
                banco[var_ocup == 487, isco := 7421]
                banco[var_ocup == 491, isco := 7245]
                banco[var_ocup == 492, isco := 7242]
                banco[var_ocup == 511, isco := 7129]
                banco[var_ocup == 512, isco := 7123]
                banco[var_ocup == 513, isco := 7122]
                banco[var_ocup == 514, isco := 7122]
                banco[var_ocup == 515, isco := 7141]
                banco[var_ocup == 516, isco := 7133]
                banco[var_ocup == 517, isco := 7132]
                banco[var_ocup == 518, isco := 7136]
                banco[var_ocup == 519, isco := 7135]
                banco[var_ocup == 520, isco := 7122]
                banco[var_ocup == 521, isco := 7132]
                banco[var_ocup == 522, isco := 8332]
                banco[var_ocup == 531, isco := 8271]
                banco[var_ocup == 532, isco := 7411]
                banco[var_ocup == 533, isco := 7411]
                banco[var_ocup == 534, isco := 8272]
                banco[var_ocup == 535, isco := 7412]
                banco[var_ocup == 536, isco := 7412]
                banco[var_ocup == 537, isco := 7412]
                banco[var_ocup == 538, isco := 8273]
                banco[var_ocup == 539, isco := 8276]
                banco[var_ocup == 540, isco := 8278]
                banco[var_ocup == 541, isco := 8277]
                banco[var_ocup == 542, isco := 8271]
                banco[var_ocup == 551, isco := 7341]
                banco[var_ocup == 552, isco := 7341]
                banco[var_ocup == 553, isco := 7343]
                banco[var_ocup == 554, isco := 8251]
                banco[var_ocup == 555, isco := 7343]
                banco[var_ocup == 556, isco := 7345]
                banco[var_ocup == 557, isco := 7346]
                banco[var_ocup == 561, isco := 7322]
                banco[var_ocup == 562, isco := 7321]
                banco[var_ocup == 563, isco := 7324]
                banco[var_ocup == 564, isco := 7321]
                banco[var_ocup == 571, isco := 3119]
                banco[var_ocup == 572, isco := 7313]
                banco[var_ocup == 573, isco := 7313]
                banco[var_ocup == 574, isco := 8231]
                banco[var_ocup == 575, isco := 8159]
                banco[var_ocup == 576, isco := 7424]
                banco[var_ocup == 577, isco := 7424]
                banco[var_ocup == 578, isco := 7113]
                banco[var_ocup == 579, isco := 7416]
                banco[var_ocup == 580, isco := 7224]
                banco[var_ocup == 581, isco := 7141]
                banco[var_ocup == 582, isco := 8171]
                banco[var_ocup == 583, isco := 7424]
                banco[var_ocup == 584, isco := 8290]
                banco[var_ocup == 585, isco := 9322]
                banco[var_ocup == 586, isco := 8290]
                banco[var_ocup == 611, isco := 7411]
                banco[var_ocup == 612, isco := 9111]
                banco[var_ocup == 613, isco := 5220]
                banco[var_ocup == 614, isco := 9112]
                banco[var_ocup == 621, isco := 3415]
                banco[var_ocup == 622, isco := 3415]
                banco[var_ocup == 623, isco := 3415]
                banco[var_ocup == 631, isco := 3411]
                banco[var_ocup == 632, isco := 3413]
                banco[var_ocup == 633, isco := 3411]
                banco[var_ocup == 634, isco := 3419]
                banco[var_ocup == 635, isco := 3416]
                banco[var_ocup == 711, isco := 3143]
                banco[var_ocup == 712, isco := 5111]
                banco[var_ocup == 721, isco := 3142]
                banco[var_ocup == 722, isco := 3142]
                banco[var_ocup == 723, isco := 8311]
                banco[var_ocup == 724, isco := 8162]
                banco[var_ocup == 725, isco := 8340]
                banco[var_ocup == 726, isco := 8340]
                banco[var_ocup == 727, isco := 8340]
                banco[var_ocup == 731, isco := 8333]
                banco[var_ocup == 732, isco := 9333]
                banco[var_ocup == 741, isco := 4133]
                banco[var_ocup == 742, isco := 8311]
                banco[var_ocup == 743, isco := 8311]
                banco[var_ocup == 744, isco := 8162]
                banco[var_ocup == 745, isco := 8312]
                banco[var_ocup == 746, isco := 8312]
                banco[var_ocup == 751, isco := 8322]
                banco[var_ocup == 752, isco := 5112]
                banco[var_ocup == 753, isco := 9332]
                banco[var_ocup == 761, isco := 4133]
                banco[var_ocup == 762, isco := 9312]
                banco[var_ocup == 763, isco := 9312]
                banco[var_ocup == 771, isco := 4142]
                banco[var_ocup == 772, isco := 4142]
                banco[var_ocup == 773, isco := 3139]
                banco[var_ocup == 774, isco := 4223]
                banco[var_ocup == 775, isco := 4142]
                banco[var_ocup == 776, isco := 4142]
                banco[var_ocup == 777, isco := 7244]
                banco[var_ocup == 811, isco := 5122]
                banco[var_ocup == 812, isco := 5123]
                banco[var_ocup == 813, isco := 9131]
                banco[var_ocup == 821, isco := 5141]
                banco[var_ocup == 822, isco := 5141]
                banco[var_ocup == 823, isco := 9131]
                banco[var_ocup == 824, isco := 9120]
                banco[var_ocup == 831, isco := 3475]
                banco[var_ocup == 832, isco := 3475]
                banco[var_ocup == 833, isco := 3475]
                banco[var_ocup == 834, isco := 3475]
                banco[var_ocup == 841, isco := 110]
                banco[var_ocup == 842, isco := 110]
                banco[var_ocup == 843, isco := 3450]
                banco[var_ocup == 844, isco := 3450]
                banco[var_ocup == 845, isco := 5162]
                banco[var_ocup == 846, isco := 5163]
                banco[var_ocup == 847, isco := 3450]
                banco[var_ocup == 911, isco := 9151]
                banco[var_ocup == 912, isco := 9321]
                banco[var_ocup == 913, isco := 6111]
                banco[var_ocup == 914, isco := 3222]
                banco[var_ocup == 915, isco := 3444]
                banco[var_ocup == 916, isco := 9161]
                banco[var_ocup == 917, isco := 7233]
                banco[var_ocup == 918, isco := 3111]
                banco[var_ocup == 919, isco := 3131]
                banco[var_ocup == 920, isco := 8290]
                banco[var_ocup == 921, isco := 9152]
                banco[var_ocup == 922, isco := 9333]
                banco[var_ocup == 923, isco := 9120]
                banco[var_ocup == 924, isco := NA]
                banco[var_ocup == 925, isco := NA]
                
                
        }
        
        
        if(tipo == "censo" & ano == 1960){
                banco[var_ocup == 111, isco := 6111]
                banco[var_ocup == 112, isco := 6121]
                banco[var_ocup == 113, isco := 6122]
                banco[var_ocup == 114, isco := 1222]
                banco[var_ocup == 115, isco := 1233]
                banco[var_ocup == 116, isco := 1225]
                banco[var_ocup == 117, isco := 1319]
                banco[var_ocup == 121, isco := 1120]
                banco[var_ocup == 122, isco := 1231]
                banco[var_ocup == 123, isco := 1221]
                banco[var_ocup == 124, isco := 1319]
                banco[var_ocup == 181, isco := 3444]
                banco[var_ocup == 182, isco := 4121]
                banco[var_ocup == 183, isco := 4121]
                banco[var_ocup == 184, isco := 2411]
                banco[var_ocup == 185, isco := 4133]
                banco[var_ocup == 186, isco := 4131]
                banco[var_ocup == 187, isco := 4111]
                banco[var_ocup == 188, isco := 4111]
                banco[var_ocup == 189, isco := 4143]
                banco[var_ocup == 191, isco := 4190]
                banco[var_ocup == 211, isco := 2142]
                banco[var_ocup == 212, isco := 2141]
                banco[var_ocup == 213, isco := 2148]
                banco[var_ocup == 214, isco := 2148]
                banco[var_ocup == 215, isco := 2113]
                banco[var_ocup == 216, isco := 2224]
                banco[var_ocup == 217, isco := 3228]
                banco[var_ocup == 218, isco := 3211]
                banco[var_ocup == 221, isco := 2213]
                banco[var_ocup == 222, isco := 2223]
                banco[var_ocup == 223, isco := 3228]
                banco[var_ocup == 231, isco := 2221]
                banco[var_ocup == 232, isco := 2222]
                banco[var_ocup == 241, isco := 2446]
                banco[var_ocup == 242, isco := 3232]
                banco[var_ocup == 243, isco := 3231]
                banco[var_ocup == 244, isco := 3225]
                banco[var_ocup == 245, isco := 3211]
                banco[var_ocup == 251, isco := 2121]
                banco[var_ocup == 252, isco := 2331]
                banco[var_ocup == 253, isco := 2320]
                banco[var_ocup == 254, isco := 2310]
                banco[var_ocup == 255, isco := 2359]
                banco[var_ocup == 256, isco := 2442]
                banco[var_ocup == 257, isco := 3340]
                banco[var_ocup == 261, isco := 2422]
                banco[var_ocup == 262, isco := 2429]
                banco[var_ocup == 263, isco := 2421]
                banco[var_ocup == 264, isco := 2429]
                banco[var_ocup == 265, isco := 3432]
                banco[var_ocup == 271, isco := 2460]
                banco[var_ocup == 281, isco := 2451]
                banco[var_ocup == 291, isco := 2452]
                banco[var_ocup == 292, isco := 3415]
                banco[var_ocup == 293, isco := 3471]
                banco[var_ocup == 294, isco := 3131]
                banco[var_ocup == 295, isco := 3131]
                banco[var_ocup == 311, isco := 3212]
                banco[var_ocup == 312, isco := 8331]
                banco[var_ocup == 313, isco := 8331]
                banco[var_ocup == 321, isco := 6113]
                banco[var_ocup == 322, isco := 6113]
                banco[var_ocup == 323, isco := 9211]
                banco[var_ocup == 324, isco := 9211]
                banco[var_ocup == 331, isco := 6152]
                banco[var_ocup == 332, isco := 6154]
                banco[var_ocup == 341, isco := 6141]
                banco[var_ocup == 342, isco := 6142]
                banco[var_ocup == 343, isco := 6141]
                banco[var_ocup == 344, isco := 6111]
                banco[var_ocup == 345, isco := 6141]
                banco[var_ocup == 411, isco := 7111]
                banco[var_ocup == 421, isco := 7113]
                banco[var_ocup == 431, isco := 8155]
                banco[var_ocup == 441, isco := 9311]
                banco[var_ocup == 511, isco := 7211]
                banco[var_ocup == 512, isco := 8122]
                banco[var_ocup == 513, isco := 8124]
                banco[var_ocup == 514, isco := 7224]
                banco[var_ocup == 521, isco := 8124]
                banco[var_ocup == 522, isco := 8113]
                banco[var_ocup == 523, isco := 8211]
                banco[var_ocup == 524, isco := 7231]
                banco[var_ocup == 525, isco := 7233]
                banco[var_ocup == 526, isco := 8223]
                banco[var_ocup == 527, isco := 7212]
                banco[var_ocup == 528, isco := 7213]
                banco[var_ocup == 529, isco := 7221]
                banco[var_ocup == 531, isco := 7231]
                banco[var_ocup == 532, isco := 7214]
                banco[var_ocup == 533, isco := 7213]
                banco[var_ocup == 534, isco := 7221]
                banco[var_ocup == 541, isco := 7431]
                banco[var_ocup == 542, isco := 8261]
                banco[var_ocup == 543, isco := 7431]
                banco[var_ocup == 544, isco := 8262]
                banco[var_ocup == 545, isco := 8262]
                banco[var_ocup == 546, isco := 8269]
                banco[var_ocup == 547, isco := 7332]
                banco[var_ocup == 548, isco := 8262]
                banco[var_ocup == 549, isco := 7432]
                banco[var_ocup == 551, isco := 8264]
                banco[var_ocup == 552, isco := 8264]
                banco[var_ocup == 553, isco := 8269]
                banco[var_ocup == 554, isco := 7432]
                banco[var_ocup == 561, isco := 7332]
                banco[var_ocup == 562, isco := 7332]
                banco[var_ocup == 571, isco := 7433]
                banco[var_ocup == 572, isco := 7432]
                banco[var_ocup == 573, isco := 7332]
                banco[var_ocup == 574, isco := 7433]
                banco[var_ocup == 575, isco := 7442]
                banco[var_ocup == 576, isco := 7442]
                banco[var_ocup == 581, isco := 7422]
                banco[var_ocup == 582, isco := 7124]
                banco[var_ocup == 583, isco := 7421]
                banco[var_ocup == 584, isco := 8141]
                banco[var_ocup == 585, isco := 7437]
                banco[var_ocup == 586, isco := 7437]
                banco[var_ocup == 587, isco := 7421]
                banco[var_ocup == 591, isco := 7245]
                banco[var_ocup == 592, isco := 7242]
                banco[var_ocup == 611, isco := 7129]
                banco[var_ocup == 612, isco := 7123]
                banco[var_ocup == 613, isco := 7122]
                banco[var_ocup == 614, isco := 7122]
                banco[var_ocup == 615, isco := 7141]
                banco[var_ocup == 616, isco := 7133]
                banco[var_ocup == 617, isco := 7132]
                banco[var_ocup == 618, isco := 7136]
                banco[var_ocup == 619, isco := 7135]
                banco[var_ocup == 621, isco := 7122]
                banco[var_ocup == 622, isco := 7132]
                banco[var_ocup == 623, isco := 8332]
                banco[var_ocup == 631, isco := 8271]
                banco[var_ocup == 632, isco := 7411]
                banco[var_ocup == 633, isco := 7411]
                banco[var_ocup == 634, isco := 8272]
                banco[var_ocup == 635, isco := 7412]
                banco[var_ocup == 636, isco := 7412]
                banco[var_ocup == 637, isco := 7412]
                banco[var_ocup == 638, isco := 8273]
                banco[var_ocup == 639, isco := 8276]
                banco[var_ocup == 641, isco := 8278]
                banco[var_ocup == 642, isco := 8277]
                banco[var_ocup == 643, isco := 8271]
                banco[var_ocup == 651, isco := 7341]
                banco[var_ocup == 652, isco := 7341]
                banco[var_ocup == 653, isco := 7343]
                banco[var_ocup == 654, isco := 8251]
                banco[var_ocup == 655, isco := 7343]
                banco[var_ocup == 656, isco := 7345]
                banco[var_ocup == 657, isco := 7346]
                banco[var_ocup == 661, isco := 7322]
                banco[var_ocup == 662, isco := 7321]
                banco[var_ocup == 663, isco := 7324]
                banco[var_ocup == 664, isco := 7321]
                banco[var_ocup == 671, isco := 3119]
                banco[var_ocup == 672, isco := 7313]
                banco[var_ocup == 673, isco := 7313]
                banco[var_ocup == 674, isco := 8231]
                banco[var_ocup == 675, isco := 8159]
                banco[var_ocup == 676, isco := 8290]
                banco[var_ocup == 681, isco := 7424]
                banco[var_ocup == 682, isco := 7424]
                banco[var_ocup == 683, isco := 7113]
                banco[var_ocup == 684, isco := 7416]
                banco[var_ocup == 685, isco := 7224]
                banco[var_ocup == 686, isco := 7141]
                banco[var_ocup == 687, isco := 7332]
                banco[var_ocup == 688, isco := 8290]
                banco[var_ocup == 689, isco := 9322]
                banco[var_ocup == 711, isco := 7411]
                banco[var_ocup == 712, isco := 9111]
                banco[var_ocup == 713, isco := 5220]
                banco[var_ocup == 714, isco := 9112]
                banco[var_ocup == 721, isco := 3415]
                banco[var_ocup == 722, isco := 3415]
                banco[var_ocup == 723, isco := 3415]
                banco[var_ocup == 731, isco := 3411]
                banco[var_ocup == 732, isco := 3416]
                banco[var_ocup == 733, isco := 3417]
                banco[var_ocup == 811, isco := 3143]
                banco[var_ocup == 812, isco := 5111]
                banco[var_ocup == 821, isco := 3142]
                banco[var_ocup == 822, isco := 3142]
                banco[var_ocup == 823, isco := 8311]
                banco[var_ocup == 824, isco := 8162]
                banco[var_ocup == 825, isco := 8340]
                banco[var_ocup == 826, isco := 8340]
                banco[var_ocup == 827, isco := 8340]
                banco[var_ocup == 831, isco := 8340]
                banco[var_ocup == 832, isco := 8333]
                banco[var_ocup == 833, isco := 9333]
                banco[var_ocup == 841, isco := 4133]
                banco[var_ocup == 842, isco := 8311]
                banco[var_ocup == 843, isco := 8311]
                banco[var_ocup == 844, isco := 8162]
                banco[var_ocup == 845, isco := 8312]
                banco[var_ocup == 846, isco := 8312]
                banco[var_ocup == 851, isco := 8322]
                banco[var_ocup == 852, isco := 5112]
                banco[var_ocup == 853, isco := 8311]
                banco[var_ocup == 854, isco := 8311]
                banco[var_ocup == 855, isco := 9332]
                banco[var_ocup == 861, isco := 4133]
                banco[var_ocup == 862, isco := 9312]
                banco[var_ocup == 863, isco := 9312]
                banco[var_ocup == 871, isco := 4142]
                banco[var_ocup == 872, isco := 3139]
                banco[var_ocup == 873, isco := 4223]
                banco[var_ocup == 874, isco := 4142]
                banco[var_ocup == 875, isco := 4142]
                banco[var_ocup == 876, isco := 7244]
                banco[var_ocup == 911, isco := 5122]
                banco[var_ocup == 912, isco := 5123]
                banco[var_ocup == 913, isco := 9131]
                banco[var_ocup == 921, isco := 9131]
                banco[var_ocup == 931, isco := 5141]
                banco[var_ocup == 932, isco := 5141]
                banco[var_ocup == 933, isco := 9131]
                banco[var_ocup == 934, isco := 9120]
                banco[var_ocup == 941, isco := 2453]
                banco[var_ocup == 942, isco := 2455]
                banco[var_ocup == 943, isco := 3472]
                banco[var_ocup == 944, isco := 3131]
                banco[var_ocup == 945, isco := 3131]
                banco[var_ocup == 951, isco := 3475]
                banco[var_ocup == 961, isco := 9141]
                banco[var_ocup == 962, isco := 9141]
                banco[var_ocup == 971, isco := 110]
                banco[var_ocup == 972, isco := 110]
                banco[var_ocup == 973, isco := 3450]
                banco[var_ocup == 974, isco := 3450]
                banco[var_ocup == 975, isco := 5162]
                banco[var_ocup == 976, isco := 5163]
                banco[var_ocup == 981, isco := 6111]
                banco[var_ocup == 982, isco := 9321]
                banco[var_ocup == 983, isco := 9151]
                banco[var_ocup == 984, isco := 3222]
                banco[var_ocup == 985, isco := 3444]
                banco[var_ocup == 986, isco := 9161]
                banco[var_ocup == 987, isco := 7233]
                banco[var_ocup == 988, isco := 8290]
                banco[var_ocup == 989, isco := 9333]
                banco[var_ocup == 998, isco := 9211]
                banco[var_ocup == 999, isco := NA]
                
        }
        
        
        banco[isco == 0, isco := NA]
        
        return(banco[,isco])
}
antrologos/harmonizePNAD documentation built on May 15, 2019, 10:48 a.m.